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ProgramAcci6n 
Muchos ordenadores, coma el Apple Macintosh y 
el Commodore Amiga, tienen incorporada fa 
posibilidad de usar distintos tipos de letra, itdfica, 
negrita, etc. 
,4msttad no va a set menos, y as presentamos 
un programa que va a permitir obtener un ndmero 
pr5cticamente i/imitado de tipos de letra distintos, 
uti/izab/es en todos los programas. 

programador 

Micro es un programa, hecho en Basic, que te va 
o permitir saber en cuo/quier momenta el contenido 
de todos los registros de/microprocesador de tu 
Amstrad. 

I 
I i t 

Mr. JoystJck 
Green Beret es un gran iuego. Divert/do, adictivo y 
espectacular, par su concepci6n y par sus grdficos. 
Vais a disfrutar mucho, pero que mucho, par L 

C6digo m6quina 
Continuando con el articulo de/a semana pasada, 
sSIo has queda averiguar c6mo se manejan en 

• / - . - "  lenguaie m6quino/as 5rdenes grdficas de 
"  ,  ) . movimiento re/aftra, es decir, el equivalente Basic de 
, , ".. .- '/," /"  PLOTE, DEW, etc. 
 , - • . ,"  ." _ i que los ingleses/laman Pinball, a paflir de ahora 
 . .    Io tienen muy daro. PodrSn/ugar basra hafarse con 
 '   - - • ' /lamadoSU AmstradPinbafl.precisamente con un programa 

/,nCOOAMSTRAD 3 



';opotes abaHhl('s que permit en 
¢'olocar el pape! b!jo la impreson. 

()imodo sis'tt,ma do caa t)'¢mtal 
del papel. 

Admire dil'erentes anchos de papel, 
tanto conthuto (de. 114 a 2 ram.) 
como llqjs ,suelt:s (102 a 241 ram.) 

 Hspeciabnez.te recomendada para ordenadores 
AMS77?AD serie CPC 

• Omectable a cualquier ordenador con intettice 
¢onfronJcs. 

 i'elocidad de bnpresi6n de 10'3 caracteres pot' 
segundo. 

alta calJdad (.\'L, i 

• 40. 66, 80y 132 caracteres pot cohmma. 
 hnpresi6n de gt'ficos plmto a punto en 

diferentes densidades, 
 96 ('anwteres ASC/I y8 subjuegos 
iternacionales. 
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Avda del Medteraneo. 9 28007 Mad.d Telex 47660 Tels 433 45 48- 433 48 76- 433 4 a 58- FAX. 433 24 50 Delegac,on en Ca'alu6a C Tarragona 110 Tel 32510 58 08015 Barcelona 



EDUCATIVO LOS LIB " OS 

QUE VIENEN 

Dnensi6n NEW nos 
ha sorprendido con un programa, 
que elias Ilaman integrado, al cual 
podriamos encuadrarlo, entre arras 
campos posibles, dentro del soft edu- 
cativo. El paquete versa sabre mao 
tem6ticas, e incluye una serie de sub- 
programas de utilidad para resalver 
los problemas de m6s de un estu- 
diante, si no con mucha espectacu- 
laridad, si al menos con concisi6n y 
eficacia, hasta tal punto, que m6s de 
un usuario aficionado a florituras Io 
calificaria de seco. 
Nosotros nos reservamos nuestra 
opini6n hasta que se le someta a un 
banco de pruebas serio, el cual re- 
velar6 las verdaderas posibilidades 
del paquete, imposibles de apreciar 
a simple vista. 
Pero los 6vidos de detalles, ansie- 
dad muy 16gica par otra parte, el es- 
pedro matemtico del paquete es el 
siguiente: 
-- Funciones alegraicas. 
-- Funciones trascendentes. 
-- C61culo matricial y sistemas de 
ecuaciones lineales. 
-- Ecuaciones diferenciales. 
-- Resoluci6n mediante series de 
Fourier. 
El programa est6 distribuido par 
IDEALOGIC, que est6 en: 
C/Valencia 85, Barcelona. 
Tels.: 253 86 93 y 253 89 09. 

ditorial ANAYA 
va publicar pr6ximamente dentro de 
la colecci6n TEMAS UNIVERSITA- 
RIOS CON MICROORDENADOR 
los siguientes libros: 
-- ESTADISTICA. Este libra nos na- 
rra los importantes avances que han 
realizado los especialistas con la uti- 
lizaci6n de ordenadores. 
Y aunque estos ordenadores fun- 
cionan narmalmente con lenguajes 
como el FORTRAN, PASCAL y otros 
matemticos mcs especializados, 
quedan todavia muchas posibilida- 
des al Basic con los programas de 
probabilidad y estadistica. 
Los programas que tiene el libra 
emplean el Basic extendido disponi- 
hie habitualmente en las grandes unio 
dades centrales. 
Autor: J. Tennant-Smith. 
Precio: 1.643 ptas. 
Comercializa: Grupo Distribuidor 
Editorial. 
-- TERMODINAMICA Y TRANSMI- 
SION DE CALOR. La facilidad y fiabi- 
lidad, asi coma la rapidez en el cl- 
culo que consiguen los ordenadores 
en el campo de la ingenieria, hacian 
necesario un libra que ayudar6 al in- 
geniero a desarrollar su habilidad en 
el manejo de esta importante herra- 
mienta. 
Este libra pretende ayudar al lec- 
tor a utilizar la programaci6n en Ba- 
sic y aprovechar la ventaja de ser ca- 
paz de estudiar el efecto que se pro- 
duce sabre los resultados de un pro- 
grama, al cambiar los valores de los 
datos de entrada, cosa sta intere- 
santisima y que debe convencer al in- 
geniero del valor de los ordenado- 
res en los c61culos de diseo y opti- 
mizaci6n. 

Autor: D. H. Bacon. 
Precio: 1.749 ptas. 
Comercializa: Grupo Distribuidor 
Editorial. 
-- METODOS MATRICIALES. Este li- 
bra constituye un media par el que 
nos podemos introducir en los m6to- 
dos matriciales y sus aplicaciones a 
la resoluci6n de sistemas de ecuacio- 
nes lineales y a la aproximaci6n y 
ajuste de datos num6ricos. 
Despu6s de describir algunos fun- 
damentos matem6ticos se dan los al- 
goritmos y programas en Basic para 
resolver los m6todos matriciales pro- 
puestos. 
El libra contiene gran cantidad de 
informaci6n 0til, de forma que se 
pueda utilizar par estudiantes de 
ciencias e ingemeria, asi coma par 
cientificos y estadisticos. 
Tambi6n permite el aprendizaje 
del Basic mediante ejemplos pr6cti- 
cos y muestra c6mo se puede aplicar 
la computaci6n para la resoluci6n de 
problemas reales. 
Autor: J. C. Mason 
Precio: 1.643 ptas. 
Comercializa: Grupo Distribuidor 
Editorial. 
Adem6s, esta SYMPHONY es un 
manual y est6 pensado coma fuente 
de informaci6n r6pida y f6cil de usar 
para el paquete de modelado LO- 
TUS SYMPHONY. 
No aspira a ser exhaustivo ni sus- 
tituir a los manuales SYMPHONY, 
pero resulta de gran utilidad para el 
lector, par la claridad y sentido pe- 
dag6gico con que est escrito, ya 
que fue empleado en un curso de 
formaci6n del LOTUS SYMPHONY. 
Describe el paquete y sus reglas 
b6sicas, asi coma las tres funciones 
m6s frecuentes y las 6rdenes m6s co- 
munes, sin olvidar las especiales que 
se dan sabre la hoja de trabaio. 
Tambi6n ensea el modo de presen- 
taci6n de los datos en forma de gr6- 
ficos y los programas de utilidades 
para crear archivos de datos. 
-Autor: Dick Waller. 
Precio: 583 ptas. 
Comercializa: Grupo Distribuidor 
Editorial. 
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(}E$1"ION DE 

Enchufemos de nuevo el ordenador, zHan 
cometido muchos errores desde nuestra 6ltima 
reuni6n? Seguro que no, pero aunque as{ haya 
sido ya estamos en disposici6n de tratar cada uno 
de ellos de una forma adecuada. 0 zno? 

Jero todavia no hemos 
terminado, n Io mayorio de los ocosiones en 
las que se produce un error, el programador 
(en este caso usted mismo, sin ir m6s lejos) no 
conoce de antemano de qu Iipo va a serni 
en la linea donde ocurrir6. 
Puede suceder entonces que preparemos 
una rutina de error que no le Irate correcta- 
mente y por tanto no consigamos con ella los 
resultados apetecidos. Imagine algo parecido 
al Programa 1. 

Programa uno 

Antes de ejecutorlo, analice con detenimien- 
to cada una de sus lineas. Hay algdn error 
en el/as? Y, en caso afirmativo, somos capa- 
ces de corregirlo o evitarlo? 
Generalmente, cuando el Amstrad detec- 
ta un error bien sint6ctico o de cualquier otra 

6 COHO AMSTRAO 

close, la ejecuci6n del programa queda dete- 
nida yen la pantalla aparece un mensaje, en 
ingles por supuesto, que nos informa de Io ocu- 
rrido. El ordenador queda dispuesto -o 
Ready- para que le podamos introducir cual- 
quier comando. Vireos que posee el Ilamado 
gestor de errores que se encarga de ha- 
cerJo. 
Pero podemos manipuJar esto a nuesfro an- 
Iojo consiguiendo que en vez de devolver el 
control el sistema operativo incorporado el mi- 
cro, Io haga a una rutina que intente subsa- 
nar el problema encontrado o, si no es posi- 
ble, al menos darnos una informaci6n m6s cla- 
ra y detallada de Io que le ha sucedido a nues- 
tro programa. 
Y esto es Io que sucede con el que tenemos 
entre manos. El mrito se Io debemos a la li- 
nea 20: 
20 ON ERROR GOTO 70 
que interrumpe la ejecuci6n del programo y 
la desvia hacia la linea 70, donde comienza 
una rutina que nos va a contar m6s cosas so- 
bre Io que ha pasado. 
El folio que hemos cometido, y que detecta 
nuestro Amstrod, es un sencillo error sint6c- 
tico que se nos ha deslizado en la linea 50, 
al olvid6rsenos poner la T de la palabra 
PRINT. 
El Amstrad se encuentra con ello y salta 
a la rutina de la linea 70 que nos dice Io ocu- 
rrido, pero en castellano, y medionte el: 
RESUME 60 
de la linea 110, volvemos a nuestro progra- 
ma principal justamenfe al END que hace que 
termine su eiecuci6n. 



Ahora, rnanos a la obra y a corregirlo. Pon- 
gala T que faltaba y haga correr de nue- 
vo el programa. Va todo sabre ruedas, na. 
Imanige que le aadirnos muchisirnas lineas 
rn6s. Buena, no se asuste porque en nuestro 
caso s61o con una ser6 suficiente para conse- 
guir los fines que desearnos. Escriba: 
55 LOCATE 15.12 
Con esta llnea Io que querernos hacer es si- 
tuar el cursor de textos en la celda de coor- 
denadas 15.12 (o co/umna 15yf//a 12). Pero 
es evidente que no Io varnos a Iograr, ya que 
de nuevo hernos cornetido un error sint6ctico 
-a pasta, clara- en esta nueva linea: sepa- 
rar los valores de las coordenadas par un pun- 
to en vez de una coma. 
Vale, teniendo en cuenta que el prograrna 
saltar6 a la rutina de tratarniento de error, eje- 
cOtelo otra vez. Qu6 ocurre ahora? 
Coma en las ocasiones anteriores, el Ams- 
trad encuentra el error e intenta solucionar- 
Io -recuerde la misi6n de ON ERROR GO- 
TO...-, pero esta vez no Io consigue o Io ha- 
cea rnedias. Nos da un rnensaje de que exis- 
te una linea que no est6 escrita correctarnen- 
te, pero Io que no es cierto es el nOrnero de 
arden indicado en el mismo: el error no est6 
ahora en la linea 50, sino en la 55. De acuer- 
do. 
Este resultado ha sido debido, coma dijimos 
antes, a que no siernpre vamos a conocer el 
lugar exacto en el que se va ha producir el 
error, sino que generalrnente surgir6 donde 
rnenos le esperemos, excepto que Io hayarnos 
preparado, coma en este caso. 

I[ R PROGP,/I4 1 
28 0¢ ERROR GOTO 78 
311 CLS 
48 saludo'HOLA' 
Sg PRIN saludo$ 
68 END 
71] RF_,ff RLF[INA i'PATIENIO DE ERROR 
86 PRINT 
98 PR|NI'ERROR SttCTA(T[]CO EN LA L]N 

EA 56' 
86 PRIt 
I16 RESUME 66 

Par eso no podemos escribir una rutina tan 
particular. Y, si es m6s general, de qu has 
sirve. Piense qu6 ocurriria si el mensaje de 
error fuera solamente: 
ERROR SINTACTICO 
La inforrnaci6n que nos aporta es bastante 
escasa. Si no conocernos ni la linea donde ha 
ocurrido has ser6 bastante m6s dificil conrre- 
girlo, sabre todo si el programa es m6s largo 

y cornplicado que el del ejernplo y tenemos que 
ir examin6ndolo instrucci6n par instrucci6n. 
Qu hacemos entonces? 
De momenta no ponernos nerviosos ni his- 
t6ricos. El Amstrad has sacar6 del apuro. 
Est6 provisto de una funci6n que es capaz de 
darnos la inforrnaci6n adicional que nos fal- 
ta: el nOrnero de linea de la instrucci6n don- 
de se produio el error. Se trata de ERL. 
Y sirnplemente hace eso, pero de momenta 
ya es suficiente. Le proponemos ahora una es- 
pecie de ejercicio. Teclee el Programa 2 y eje- 
cOtelo. 

Programa dos 

Qu6 diferencia existe entre el resultado fi- 
nal obtenido y el que se produjo con el pro- 

!8 REM PROGRA/A I ] 
26 • ERROR G01"O 76 
38 CLS 
46 sal udo$='HOLA' 
S PRIN saludo$ 
68 END 
78 REM RUINA [RATIENTO DE ERROR 
86 PRINT 

9@ PR]NT'ERROR SINI'ACTICO EN LA LIN 
EA';ERL 
tB@ PRINT 
116 RESUME 66 

grama anterior8. Aparenternente es el misrno, 
pero el modo de Ilegar a 61 es diferente. 
En ambos nos aparece un rnensaje en la 
pantalla en el que el ordenador nos dice d6n- 
de hernos cometido el fallo: linea 50. Ahora 
bien, en el prirnero forrn6bamos el texto di- 
rectarnente mientras queen este segundo em- 
pleamos para ella la nueva funci6n ERL. 
Corrija, coma antes, la linea 50 y aada la 
55. Esta vez si que podemos observar clara- 
mente los efectos de ERL, ya que la informa- 
ci6n sl que es exacta. El Amstraa has dice 
el ngrnero de la sentencia donde se ha pro- 
ducido el error. Y todo ha sido debido al carn- 
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hie que heroes introducido en la linea 90. 
Asi pues, ya tenemos un pace rues localize- 
do el error y par tanto sere bastante rues fe- 
cil corregirlo. Pero compliquemos un pace rues 
las cases pare intentar no aburrirnos. Vamos 
a mezdar ahora varies diferentes a vet qu 
pasa. 
El Programa 3 es una pequea mezcla de 
Io que le acabamos de decir. Escribalo tel coo 
me aparece el listado -errores incluidos- y 
analicelo con detenimiento antes de ejecutar- 
Io. 

Programa tres 

Tenemos, come antes, un error sinteclico en 
la linea 50, y ademes un RETURN inespera- 
do en la 60. Declines que es inesperado debi- 
do a que Ilegemos a 61 sin que se haya pro- 
ducido ninguna Ilamada a subrutina. De 
acuerdo. 
Y vista esto, eiecOtelo. Observe que el que 
se va a encargar de tratar ahora cada uno de 
elias es el gestor de errores del Basic, ya que, 
de momenta, no hemos introducido ninguna 
linea donde indiquemos que se transfiera el 
control a la rutina preparada pora ella, que 
par ahora este de adorno). 

96 PRINT 
166 PRINT'ERROR S]NTACTIC0 EN LA LI 
NEA' ;ERL 
]8 PRINI 
126 RESE NEXT 

pie gestor de errores. Pare ella aada al Pro- 
grama 3 la siguiente linea: 
20 ON ERROR GOTO 80 
que sere Io encargoda de interrumpir la eie- 
cuci6n del programa, cuando sea precise, y 
desviarla hacia la rutina que has dare una in- 
formacien concrete de Io que este sucedien- 
do y que comienza en la linea indicada al fi- 
nal de la instrucci6n ON ERROR... 
Demos marcha atres y repitamos el prate- 
so. Teclee RUN y observe qu es Io que ocu- 
rre. 
El ordenador defecta el primer error y nos 
Io dice con nOmero de sentencia incluida. Me- 
diante 61: 
RESUME NEXT 
de la linea 120, la ejecucien continOa en la si- 
guiente a la indicada par ERL y sigue hasta que 
se encuentra con el RETURN incorrecto. 
Hay un nuevo error, asi que volvemos ala 
rutina que los trate. Aparece un mensaje en 
la pantalla y el programa acaba porque RE- 
SUME NEXT hace que siga par la linea 70, 
donde se encuentra con END. 
#Ou# sacamos en clara de lode ester. Lo ver- 
dad es que pace case, ya que selo hemos Ile- 
gado a conocer el nOmero de los lineas don- 
de se hen producido anomalies. Pero 6stas hen 
side debidas a causas bien diferentes, coma 
ya sabemos. 
Estamos echando en falta alga que has per- 
mita distinguir qu6 es Io que ha pasado en ca- 
da case para as/ir directos al grano e inten- 
tar solucionar nuestro problema. 
Pues bien, Io mismo que existe una funcien 
ERL que has devuelve el nOmero de la linea 
de la instruccien donde se ha producido un 
error, el Amstrad tambien posee otra que 
nos informare del nOmero o tipo de error de- 
tectado. Es justamente Io que necesitamos. 
Con la funci6n ERR el ordenador nos dire 
cual de redes los tipos de error que encontra- 
re en la tista de mensajes, incluida en el Ma- 
nual del Usuerio, es el que se ha producido. 
Y si podemos disponer de ella, por qu6 no 
ufilizarla? Con el Programa 4 podemos ver una 
sencilla manera de tratar diferentes tipos de 
errores. Seguro que no tiene ningOn proble- 
ma pare entenderlo. 

que nos referimos anteriormente, y coma tel 
Io tratamos. 
Sin embargo, cuando el tipo de error, o el 
valor contenido en {numerror, sea el 3 ten- 
dremos que sacar un mensaje en el que diga- 
mosque en la linea 60 el ordenador ha en- 
contrado un RETURN que no esperaba. Ojee 
de nuevo su Manual para comprobar que el 
3 es el nOmero de error que se ha producido. 
Todo esto responde a un sen:illo proceso 16- 
gico que podemos resumir con un organigra- 
ma que quiz6 nos haga ver los cosas un pace 
rues claras. La figure 1 es la representaci6n 
grefica de Io que le acabamos de decir. Ana- 
licela y seguro que le ayudare a despejar al- 
guna de sus dudes si es que los tuviera. 

FIGU; I 

I 
TIO ERROR ERR 
Sl 
,i ° 

ORGANIGRAVA PRO(;RAMA IV 

.ENSAJE 
ERROR 
• 

SI 
RETURN 
IESPERADO 
I 

El Basic primero detectare el error sintecti- 
co y sacar6 el mensaje: 
Syntax error in 50 
para devolver a continuacien el control al sis- 
tema operative que nos permitire corregirlo. 
iH6gal0, pues! 
Ponga de nuevo el Programe en marcha con 
RUN. Ahora, una vez eliminado el sintectico, 
el ordenador encontrere un RETURN donde 
no debia estar y nos avisa de ella: 
Unexpected RETURN in 60 
Introduzcamos a continuacien nuestro pro- 
8 uco,or AMSTRAD 

Programa cuatro 

Es una variaci6n del anterior, pero en el que 
ya hemos incluido la nueva funcien ERR en la 
rutina que va gestionar) los diferentes erro- 
res. 
Lo primero que hace es poser el valor que 
nos devuelve esta funci6n ala variable nu- 
merror en la linea 90 y despues analiza el 
contenido de la misma. 
Si numerror vale 2 estamos ante un error 
sintectico, tal come nos Io indica la table ala 

Hagomos una pequea recapitulaci6n de es- 
tas dos Oltimas ideas. Existen en el Basic det 
Amstrad dos funciones que nos serviren pa- 
re encontrar una informaci6n adicional sobre 
los errores cometidos, informeticamente ha- 
blando. ERL nos da un nOmero que correspon- 
de al de la linea de la sentencia donde se ha 
detectado el Oltimo error, mientras que ERR 
nos devuelve tambien otro nOmero, pero que 
ohora es el lipo del Oltimo error detectodo y 
pare conocer redes los que existen le remiti- 
rues al Manual. 
Hay ocasiones en los que dentro de un pro- 
grama no existe ningOn.error de los que pue- 



den set detectados por el Basic, pero en el que, 
sin embargo, podemos estar introduciendo da- 
tos que, sin ser errores, quiz6 no sean correc- 
tos. 
Nos explicamos. Imagine que tenemos que 
teclear un ao de este siglo. Es evidente que 
su valor estar6 comprendido entre 1900 y 
1999, no? 
La forma de detectarlo hasta ahora era me- 
diante dos lineas de programa semejantes a: 
100 INPUT <AO>>; a 
110 IF a< 1900 OR a + 1999 
THEN GOTO 100 
Ve6moslo ahora bajo otra perspectiva. Si 
contestamos con un ao que no est6 dentro 
de este rango estamos cometiendo un error. 
En los datos, pero al fin y al cabo, es error. 
Y asi vamos a tratarlo. 
En nuestras mgltiples ojeadas al Manual en 
este articulo habr observado que est6n con- 
templados 32 tipos de error que podemos de- 
cir sean los cl6sicos del Basic. AI nuestro, co- 
mo es nuevo, le daremos el nOmero 33. 

18 REM PROGRAMA IV 
28 • ERROR GOTO 88 
38 CLS 
48 saludo$='HOLA' 
58 PRIN saludo$ 
68 RETU 
78 END 
88 RE]H RUTINA TRATAMIENTO DE ERROR 

98 nuerror=ERR 
188 PRINT 
I8 IF nuerror=2 THB PRIhrT'ERROR 
SlflTACTICO EN LA LINEA';ERL 
128 IF nuerror=3 THEN PR]h[T'RETUi 
INESPERADO EN LA LINEA';ERL 
138 PRINT 
148 RESUME NEXT 

• C6mo hacer ahora que nuestro propio ges- 
to'de errores Io detecte y Io trate como si fuera 
uno de los contemplados por el BasicS. Pues 
muy sencillo, incluyendo una linea en el pro- 
grama tal como: 
120 IF a< 1900 OR a + 1999 
THEN ERROR 33 
,4sf de sencillo? Pues si, asi de sencillo. 
ERROR no es una palabra cualquiera sino que 
est6 reservada para una orden Basic. Y, 
hace esta instrucci6n? 
Lo primero es que activa nuestro gestor 
a medida y ste hace que el programa salte 
a la rutina de tratamiento de errores, si es que 
la hay, para intentar corregirlo. Adem6s ge- 
nera unos valores correctos con las funciones 
ERR y ERL que aaden m6s informaci6n al te- 
mo. 

Podemos decir que con ERROR estamos fa- 
bric6ndonos una tabla de errores cuyos tipos 
est6n descritos por el mismo y por supuesto 
fuera del rango de los que puede detector el 
Basic. El Programa 5 es una muestra de c6- 
mo podemos utilizar esta instrucci6n en la 
pr6ctica. 

Programa cinco 

Es un ejemplo muy sencillito en el que se nos 
pide introducir por pasos una fecha de este si- 
glo, para continuar con Io que ya hemos co- 
menzado. 
Hemos catalogodo tres nuevos errores de 
datos: el 33 Io asociamos a haber tecleado un 
dia incorrecto, el 34 se producir6 cuando el 
valor del rues no sea v61ido y con el 35 pode- 
mos decir Io mismo, pero para el ao. 
Observe que invocamos el error especifica- 
do en los lineas 50, 70 y 90, dependiendo en 
coda caso del fallo de datos producido y des- 
tie alli saltamos a la rutina de error. 

18 REN PROGRAMA V 
28 O ERROR GOTO 1888 
38 CLS 
48 INPUT'D]A: ',dia 
58 IF dia<] OR dia>31THf ERROR 33 
68 INPUT'MES: ',es 
78 IF mes< OR es>]2 THEN ERROR 34 
88 INPUT'#tiO: ',a 
98 IF <1988 OR a>I99 THEN ERROR 3 
5 

188 PR] 
I]8 PR]NT'La fecha es';dia;'del'; 
28 END 
1888 REM TRATIEh[TO DE RL[TI DE E 
RROR 
1818 numerror=ERR 
1828 IF numerror=33 HEN RESUME 48 
183 IF nuerror=34 THEN RESLE 68 
1848 IF nuerror=35 THEN RESUME 88 
1858 PRl!'ERROR';nuerror;'EN LA L 
]NEA';ERL 
]868 RESLt4E 

En ella se hace un an61isis del valor que nos 
devuelve ERR (o el tipo de error) y se actOa 
en consecuencia. Tambin hemos contempla- 
do el caso en el que se ha producido un error 
de un tipo diferente a los que nosotros hemos 
definido y la rutina Io tratar6 igualmente. 
Le recomendamos que estudie la figura 2. 
En ella est6 refleiado el camino 16gico que ha 

seguido el Amsrad cuando ha encontrado 
un error. Primero Io onaliza y despus de in- 
formarnos de Io que paso devuelve el control 
al punto del programa m6s conveniente en ca- 
da caso. 

IlPO ERROR ERR 

NO 

RRORES 

ORGANIGRAMA POGRAA Y 

Recuerde que es muy Otil emplear estas re- 
presentaciones gr6ficas, u organigramas, an- 
tes de ponerse a codificar como un Ioco. Le 
clarificor(n mucho las cosos y adem6s le ser 
muy sencillo transformar posteriormente a ins- 
trucciones Basic. 
Y por el momento nada m(s. Esta vez le de- 
seamos que procure cometer muchos errores 
para poder explorar a fondo todas las posi- 
bilidades de las que dispone su ordenador pa- 
ra tratarlos. Asi que .... hasta pronto. 
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En muchas ocasiones, nos hemos visto obligados a definir un 
nuevo iuego de caracteres para que el pro.g, rama 9ue 
estamos realizando, quede con una presentation mucho m6s 
vistosa. Hemos tenido que ir componiendo uno a uno todos 
los caracteres que nos ban interesado. 

11o significa tener 
que introducir en nuestro ordenador 
8 bytes por cada carccter a definir, 
por Io que si se han definido, pot 
eiemplo, las letras mayOsculas y mi- 
nOsculas, stas forman un total de 50 
caracteres, Io que indica que nos he- 
mos visto obligados a teclear j400 
bytes! 
A partir de ahora y con el progra- 
ma que os presentamos, ya no ser6 
necesario efectuar esta penosa ta- 
rea, ya que nuestra rutina es capaz 
de generar cientos y cientos de nue- 
vos juegos de caracteres originales 
que podr6n ser introducidos en nues- 
tros propios programas. 
Adem6s, presenta la ventaja de 
que la nueva definici6n se efectOa 
desde el car6cter 32 hasta el car6c- 
ter 255, Io cual significa poseer un 
juego completo de caracteres total- 
mente originales. 
Por si fuera poco, dicho programa 
aOn nos ofrece una ventaja adicio- 
hal, yes que cada uno de los distin- 
tos juegos de caracteres se pueden 
obtener mediante comandos RSX, 
por Io que no existir6 ningOn proble- 
ma a la hora de introducirlo en los 
progra'rnas que estemos confeccio- 
nando. 
Pot si fueran pocas las posibilida- 
des que nos proporciona esta rutina, 
aOn queda otra, que por si sola nos 
ser6 de una gran utilidad tanto si tra- 
bajamos con los nuevos caracteres 
como si trabajamos con los propios 
de Amstrad. 
Esta Oltima opci6n nos va a permi- 
tir imprirnir en pantalla cualquier ca- 
r6cter en cualquier sentido. Es decir, 
podremos escribir de abajo a arriba, 

o bien en sentido inverso al normal, 
todo ello con unos caracteres en los 
que se habr6 producido una rotaci6n 
de 90, 180 o 270 grados, segOn el 
sentido en que se est6 imprimiendo. 
Por si Io dicho hasta el momento os 
parece poco, debemos decir por OI- 
timo que la rutina capaz de produ- 
cir todos estos efectos ocupa Onica- 
mente i496 bytes!, y se ubica a par- 
tir de la direcci6n hexadecimal 
&9500. 
Vamos a describir a continuaci6n 
cada uno de los nuevos comandos 
RSX capaces de generar los nuevos 
juegos de caracteres grficos. 

ICARSO: 

Coloca el juego de carac- 
teres original de Am,:trad y 
coloca dichos caracteres en 
las posiciones iniciales, sea 
cual fuere su sentido de gi- 
ro en ese momento. 

ICARSI: Produce caracteres a doble 
anchura de la normal. 

ICARS2: 

Genera letras normales 
partidas por la mitad en 
forma vertical. 

ICARS3: 

Se obtiene un juego de ca- 
racteres estrecho pero 
grueso. 

ICARS4: 

Tambi6n genera letras es- 
trechas pero en este caso 
delgadas al mismo tiempo. 

ICARS5: Caracteres partidos hori- 
zontalmente. 

ICARS6: 

Se consigue un juego de ca- 
racteres algo m6s corto de 
Io normal (utilizable en es- 
pecial para las letras ma- 
yOsculas). 

ICARS7: 

Provoca un alargamiento 
en el juego de caracteres 
actual. 

ICARS8: Realiza un desplazamiento 
escalonado hacia la dere- 
cha y de abajo a arriba del 
juego de caracteres actual, 
con Io que se obtienen le- 
tras inclinadas hacia la de- 
recha. 

ICARS9: Es id6ntica a la anterior pe- 
ro en este caso se produce 
el efecto hacia la izquierda. 

IGIRO: 

Provoca una rotaci6n de 
90 grados en el actual iue- 
go de caracteres. Si se efec- 
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tga dos veces se obtiene 
una rotaci6n de 180 gra- 
dos, y de 270 si se efectga 
pot tercera vez. En esta si- 
tuaci6n, si se vuelve a eje- 
cutar se obtienen los carac- 
teres con el sentido de giro 
original. 
Asi pues, existen nueve juegos de 
caracteres <<base> totalmente diferen- 
tes e independientes unos de otros, 
por Io que efectuando combinacio- 
nes entre ellos, se podr6n conseguir 
numerosisimos nuevos iuegos de ca- 
racteres, m6s aOn si tenemos en 

cuenta que la uni6n de dos juegos de 
caracteres, en la mayoria de los ca- 
sos no es commutativa, es decir no 
es Io mismo efectuar: 

ICARS8:ICARS3 

que eiecutar: 

ICARS3:ICARS8 

Realmente, no sabria decir cu6n- 
tos nuevos tipos de caracteres se 
pueden conseguir a trav6s de esta 
rutina, ya que me ha sido totalmen- 
te imposible poder realizar todas las 
combinaciones, pero en el programa 
demostraci6n se muestran algunos 
ejemplos. 
Algunas de las combinaciones bi- 
narias con las que se pueden obte- 
her unos bonitos gr6ficos, son las si- 
guientes: 

ICARS4:ICARS8 
ICARSO: ICARS7 
ICARS7:ICARS8 
ICARSI: ICARS8 

Aunque verdaderamente existen 
muchas m6s posibilidades de combi- 
naci6n. 
Un ejemplo de combinaci6n de 
tres tipos de caracteres, puede ser la 
siguiente: 

ICARS4:ICARS9:ICARS1 

Como pod6is comprobar, los tipos 
de variaciones son muchisimos, 0ni- 
camente basra con investigar cada 
una de las posibles combinaciones. 
Del mismo modo se pueden obte- 
her diferentes juegos de caracteres 
grficos, uniendo cuatro, cinco o 
hasta los nueve tipos distintos de ca- 
racteres <base>. 
Dado que efectuando algunas de 
las combinaciones posibles, podemos 
obtener letras ilegibles, tenemos la 
posibilidad de efectuar: 

ICARSO 

con Io que obtendremos el juego ori- 
ginal de caracteres que posee el 
Amstrad. 
Del mismo modo para obtener ca- 
da uno de los tipos ,base, debere- 
mos ejecutar previamente el coman- 
do anterior. 
Para grabar la presente rutina en 
disco o cassette, Onicamente deber6is 
copiar el listado ensamblador que 
aparece a continuaci6n, colocando 
como origen la direcci6n hexadeci- 

real &95(0, y salvarlo como c6digo 
objeto. 
Aquellos que prefieran teclear el 
cargador Basic, una vez terminado 
de copiar, deber6n eiecutar el pro- 
grama, y en el caso de que aparez- 
ca alggn mensaje de error, deber6n 
revisar las lineas ,DATA. Si el pro- 
grama se ejecuta correctamente, se 
proceder6 a salvarlo en cinta o dis- 
co de la forma siguiente: 

SAVECHARS>, B,&9500,500 

con Io cual ya podrci ser utilizado co- 
mo se desee. 
Cuando queramos cargar el c6di- 
go m6quina en memoria, deberemos 
ejecutar un programa Basic como el 
siguiente: 

10 MEMORY &94FF 
20 LOADCHARS ,&9500 
30 CALL &9500 

con Io cual se tendr6 el programa en 
memoria y se habrn inicializado los 
nuevos comandos RSX. 
A partir de este momento podre- 
mos empezar a escribir nuestro pro- 
grama con la posibilidad de utiliza- 
ci6n de los once nuevos comandos. 
No resta nada m6s por decir, ya 
que vosotros mismos podr6is ver la 
gran potencia de esta rutina en c6- 
digo m6quina. A disfrutar y aver 
qui6n consigue mayor nOmero de 
juegos de caracteres distintos. 

LISTADO DESENSAMBLADO 

10 ORG #9508 
20 LD DE,32 
3@ LD HL,BUFLET 
48 CALL #BBAB 
50 CALL STORE 
60 LD BC,TASLA 
70 LD HL,ESPACE 
80 jP #BCDI 
90 TASLA: DEFW NAME 
100 JP LETRA 
110 JP CHANGE 
120 JP CHANG1 
130 JP CHANG2 
140 JP CHANG3 
150 JP CHANG4 
160 JP CHANG5 
170 JP CHANG6 
180 JP CHANG7 
190 JP CHANG8 
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200 
218 NAME: 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
348 
350 
360 
370 
380 
390 
408 
410 
420 
430 

JP GIRO 
DEFM "CARS" 
DEFB "0"+#80 
DEFM "CARS" 
DEF8 "I"+#80 
DEFM "CARS" 
DEFB "2"+#88 
DEFM "CARS" 
DEF8 "3"+#80 
DEFM "CARS" 
DEF8 4"+#80 
DEFM CARS" 
DEF8 5"+#80 
DEFM CARS" 
DEFB 6"+#80 
DEFM CARS" 
DEF8 7"+#80 
DEFM "CARS" 
DEFB "8"+#80 
DEFM "CARS" 
DEFB "9"+#80 
DEFM "GIR" 
DEFB "0"+#80 
DEFB 8 

440 ESPACEt DEFS 4 

450 ; 
468 ; 
478 CHANGE: LD HL,BUFLET 
488 LD 8C,1800 
490 BUGLE: LD A,(HL) 
500 SCF 
510 CCF 
520 RR (HL) 
530 OR (HL) 
548 LD (HL),A 
558 INC HL 
560 DEC BC 
578 LD A,B 
580 OR C 
598 JR NZ,BUCLE 
680 RET 
610 CHANG1: LD HL,BUFLET 
628 LD BC,1880 
630 8UCLI: RES 4,(HL) 
648 INC HL 
658 DEC 8C 
668 LD A,8 
670 OR C 
688 JR NZ,BUCLI 
698 RET 
700 CHANG2: LD HL,BUFLET 
710 LD 8C,1808 
720 BUCL2: LD A,(HL) 
730 LD (HL),8 
748 RRA 
750 RRA 
768 RR (HL) 
77@ RRA 
788 RR (HL) 
790 RRA 
888 RR (HL) 
818 RRA 
820 RRA 
830 RR (HL) 
840 RRA 
858 RR (HL) 
860 RRA 
870 RR (HL) 
888 INC HL 
898 DEC BC 

900 LD A,8  
918 OR C 
928 JR NZ,BUCL2 
938 RET 
940 CHANG3: LD HL,BUFLET 
958 LD 8C,1808 
960 8UCL3: LD A,(HL) 
970 RR (HL) 
980 RR (HL) 
990 LD D,A 
1800 RL D 
1010 AND D 
1828 LD (HL),A 
1838 INC H 
1048 DEC BC 
1050 LD A,B 
1060 OR C 
1070 JR NZ,BUCL3 
1088 RET 
1898 CHANG4: LD HL,BUFLET 
1100 LD 8,223 
1110 BUCL4: INC HL 
1120 INC HL 
1130 INC HL 
1140 INC HL 

1150 INC HL 
1160 LD (HL),8 
1170 INC HL 
1180 INC HL 
1198 INC HL 
1288 DJNZ 8UCL4 
1218 RET 

1228 CHANG5: LD IX,BUFLET 
1230 LD 8,223 
1248 8UCL5: LD D,(IX+8) 
1258 LD C,(IX+I) 
1260 LD (IX+I),D 
1278 LD (IX+2),C 
1280 LD (IX+O),O 
1290 LD DE,8 
1300 ADD IX,DE 
1310 DJNZ 8UCL5 
1320 RET 

1330 CHANG6: LD IX,BUFLET 
1348 LD 8,223 
1350 BUCL6: LD D,(IX+3) 
1360 LD E,(IX+4) 
1370 LD H,(IX+5) 
1388 LD L,(IX+6) 
1398 LD (IX+4),D 
1488 LD (IX+5),E 
1418 LD (IX+&),H 
1428 LD (IX+7),L 
1438 LD D,8 
1440 LD E,8 
1450 ADD IX,DE 
1460 DJNZ BUCL6 
1478 RET 

1488 CHANGT: LD 

1498 LD 
1580 8UCL7: SCF 
1518 CCF 
1528 RL 
1530 SCF 
1548 CCF 
1550 RL 
1560 SCF 
1570 CCF 
1588 RR 
1590 SCF 

IX,BUFLET 
8,223 

(IX+7) 

(IX+6) 

(IX+3) 

1600 
1610 
1628 
1638 
1648 
1658 
1660 
1678 
1680 
1698 
1788 
1718 
1720 
1738 
1740 
1750 
1760 
1770 
1780 

CCF 
RR (IX+2) 
SCF 
CCF 
RR (IX+l) 
SCF 
CCF 
RR (IX+l) 
SCF 
CCF 
RR (IX+B) 
SCF 
CCF 
RR (IX+B) 
LD D,@ 
LD E,8 
ADD IX,DE 
DJNZ BUCL7 
RET 

1790 CHANG8: LD 

IX,BUFLET 
1880 LD 8,223 
1810 8UCLS: SCF 
1828 CCF 
1838 RR (IX+7) 
1848 SCF 
1858 CCF 
1868 RR (IX+7) 
1870 SCF 
1880 CCF 
1890 RR (IX+6) 
1900 SCF 
1918 CCF 
1928 RR (IX+6) 
1938 SCF 
1948 CCF 
1958 RR (IX+5) 
1968 SCF 
1978 CCF 
1980 RR (IX+4) 
1990 SCF 
2000 CCF 
2810 RL (IX+I) 
2020 SCF 
2030 CCF 
2848 RL (IX+B) 
2050 LD D,8 
2860 LD E,8 
2078 ADD IX,DE 
2880 DJNZ BUCL8 
2098 RET 
2180 STORE: LD HL,BUFLET 
2110 LD DE,STORLE 
2120 LD BC,1800 
2130 LDIR 
2140 RET 
2158 LETRA: LD HL,STORLE 
2168 LD DE,BUFLET 
2170 LD 8C,1888 
2180 LDIR 
2190 RET 
2200 GIRO: LD DE,BUFLET 
2210 LD 8,223 
2220 8UCLg: PUSH BC 
2238 LD HL,BUFFER 
2248 LD 8,8 
2250 NUD4: PUSH BC 
2268 PUSH HL 
2278 LD 8,8 
228@ LD A,(DE) 
2298 NUD3: RRA 
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2388 RL (HL) 
2318 INC HL 
2328 DJNZ NUD3 
2338 POP HL 
2348 INC DE 
235@ POP 8C 
2368 DJN2 NUD4 
2378 PUSH DE 
2388 EX DE,HL 
2398 LD DE,8 
2488 SCF 
2418 CCF 
242@ SBC HL,DE 
243@ E× DE,HL 
244@ LD HL,DUFFER 
245@ LD BC,8 
2468 LDIR 
2478 POP DE 
2488 POP BC 
2498 DJNZ BUCL9 
258@ RET 
2518 BUFFER: DEFS 8 
252@ BUFLET: DEFS 1888 
2530 STORLE: DEFS 1888 

TABLA DE ETI(2UETAS 

BUCL2 959C BUCL3 95C8 
BUCL5 95E9 BUCL6 9687 
BUCL8 966D BUCL9 9603 
BUFFER 96F8 BUFLET 96F8 
CHANG2 9596 CHANG3 95BA 
CHANG5 95E3 CHANG6 9681 
CHANG8 9667 CHANGE 9573 
GIRO 96BE LETRA 9682 
NUD3 96CE NUD4 96C9 
STORLE 9E80 TABLA 9515 

I PROGRAMA DEMOSTRACIOfl 

Ig EHO &94FF 
2@ LDAD'chars',&%DB 
3@ LL &95@8 
4@ MODE I:INK g,@:INK I,II:INK 2,8: 
INK 3,15:PAPER @:8ORDER 
58 a$='MICROHODDY 
68 IRS8 
g8 GOSU8 398 
12 
138 GOSU8 398 
148 
158 GOSU8 398 
188 CARS6 
198 GOSUB 398 
288 IARS7 
218 GOSUB 398 

228 IRSS:GOSUB 398 
238 IRSg:GOSUB 398 
248 IRS2:IRSS:GOSU8 398 
258 IRS2:IRST:IRSS:GOSOB 398 
26@ ICARS4:ICARSD:GOSUB 398 
278 ICARSI:ICARST:GOSUB 398 
288 
298 GOSUB 398 
3g8 ICARSI:ICARS2 
318 GOSUB 398 
328 [CARSI:ICARS6 
338 GOSUB 398 
348 ICARSI:ICARS5 
358 GOSUB 39g 
368 (CARS3:ICARSI 
378 OOSUB 398 
388 GOTO 68 
398 IGIRO:PE 1 
4g8 FOR N=! TO 18 
48 LOCATE 2,22-N:PRINT MI(A$,N,! 
428 NEXT 
438 
448 FOR N=I TO 
4Sg LOCATE 29-N,23:PR]NT 
1) 
468 NEXT 
478 
48g FOR N=! TO 
498 LOCATE 38,N+3:PRINT M|(A$,N,I 
) 
588 NEXT 
518 ;8IRO 
528 FOR N=! TO 18 
538 LOCATE N+g,2:PRINT MID$(A4,N,! 
) 
548 NEXT 

558 P 2:LOCATE 13,7:PRINT'PUL U 
 TECLA':P 3:LOCATE 9,15:PRI ' 
PAPA 81AR CAPACTERES' 
568 WHILE INk=":WO 
57 ICARS8 
588 RETLII 

I PRO  RA/gA AR  ADOR 

IB R *PROGRAI CARPADOR* 
28 FOR h-9588 10 &96F8 
38 RD A:SUtt=SLIA+A 
48 POKE NA 
41 EXT 
58 IF SUMA()52132 TH PRIN] 'ERROR  DATAS' 
7g TA 17,32,8,33,248,158,285 
88 TA 171,87,25,66,158,,21 
98 TA 149,33111,149,195,289,188 
] TA 56,149,195,178,158,195,115 
I18 TA 149,195,135,149,195,15g,49 
128 TA 195,186,149,195,289,149,19S 
138 TA 227,149,195,I,15B,19548 
148 TA 158,195,1g3158,195198,158 
ISg TA 67,65,8,83,76,67,65 
168 TA 82,83,177,67,65,82,83 
178 TA 17867,65,82,83179,67 
188 TA 65,82,83,188,67,6582 
190 TA 83181,67,65,82,83,182 
2gg TA 67,65,82,83,183,67,65 

218 PATA 82,83,184,67,65,82,83 
228 DATA 185,71,73,82,287,8,8 
238 PATA g,D,,33,248,158,1 
248 TA 8,7]26,55,63283,38 
258 TA 182I19,35,II,12,177,32 
268 TA 243,281,33,248,158,1,8 
278 TA 7,283166,35,II,128,177 
288 DATA 32,248,281,33,248,15,] 
298 DATA 8,7,]26,54,g,31,31 
388 DATA 283,38,31,283,38,3],283 
318 DATA 38,31,3,283,38,3],283 
328 DATA 38,31,283,38,35,11,12 
338 DAA 177,32,227,281,33,248,15g 
348 DAA 1,8,7,126,283,38,283 
3S8 TA 38,87,283,18,162,11935 
368 DATA ),128,177,32,24g,281,33 
378 TA 248,158,6,223,3S,35,3S 
388 DATA 3535,54,g,35,35,35 
398 IA 16,244,281,221,33,248,15 
488 DATA 6,223,221,868,221,78 
418 DATA 1,221,114,1,221,113,2 
42g TA 22,54,g,8,17,8,8 
43 TA 221,25,6,233,2gI,221,33 
448 DATA 248,]5g,6,223,221,86,3 
458 TA 221,94,4,221182,5,221 
46 DAA 118,6,221,114,4,22],115 
478 DATA 5,221,I]66,221,I17,7 
48g DAA 22,8,38,8,221,25,16 
498 DATA 224,281,221,33,2481586 
588 DATA 223,55,63,22),253,7,22 
5]8 DATA 55,63,221,283,6,22,55 
528 DATA 63,221,283,3,38,55,63 
538 DATA 221,283,2,38,55,63,22! 
548 TA 2831,3,55,63,221,283 
558 TA 1,38,55,63,221,283, 
568 TA 38,55,63,221,283,g,3g 
578 IA 
58g TA 28,281,22,33,248,)5,6 
59 TA 223,55,63,221,283,7,3g 
68 TA 55,63,22,3,7,55 
618 TA 63,221,283,6,38,5563 
628 IA 22,283,6,,55,63,221 
638 TA 283,5,38,55,63,221,283 
648 TA 4,3,5S,63,221,283,1 
65g TA 22,5563,221,283,8,22 
66 TA 22,g,38,8,221,25,16 
678 TA 288,2gI,33,248,15g,17g 
688 A 158,,8,7,237,76,2 
698 TA 33,,15817,248,158,I 
7gg TA 8,7,237,76,281,17,248 
71g TA 158,6,223,17,33,24g,158 

728 DATA 6,8,197,229,6,8,26 
738 DATA 31,283,22,35,16,258,225 
74 DATA 19,193,]6,248,213,235,17 
758 DATA 8,8,55,63,23782,235 
768 DATA 33248,158,I8,8,237 
77 DATA 176,289,193,16,212,281,8 
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REEIV BERET 

Dentro de ia base de misiles, una m6quina 
entrenada para matar se abre paso ante el 
D in, ce,sante a.taque del per_sonal de vigilancia. 
esae luego, los luegos en los que un hombre solo 
se enfrenta a todo un ejdrcito est6n de moda. 

mpez6 con 
la anterior peliculo de Rocky (Silves- 
ter Stalone), que por una vez y si- 
guiendo las huellas de acorralado 
dej6 de ser el boxeador que m6s 
galletas se Ileva por combate, para 
convertirse en Rambo. 
Rambo es un guerrillero que se 
introduce en un campamento Viet- 
cong, para liberar a sus compae- 
ros presos en la zona de alta segu- 
ridad. 
Tras Rambo, apareci6 un juego 
para m6quinas de billares basado 
en la misma tem6tica, nos referimos 
al renombrado Comando de la ca- 
sa Capcom. 
Despu6s del 6xito de la pelicula 
de Stalone, sta tuvo su adaptaci6n 
a juego para ordenador, pudiendo 
los poseedores de un Amstracl dis- 
poner de una versi6n para nuestro 
ordenador. 

Camino distinto pero con el mis- 
mo resultado fue el recorrido por el 
Comando. En este caso rue el uego 
de ordenador el que dio ugar a la 
pelicula, apareciendo m6s tarde la 
versi6n para Amstrad. 
Como dos juegos sobre el mismo 
tema son poca cosa, hemos tenido 
noticia de la existencia de otro pro- 
crama similar, estamos hablando 
el mercenario. 
Y por si esto fuera poco, y para 
que reine la abundancia, otro pro- 
grama con la misma tem6tica ha si- 
do realizado para los amantes de 
la acci6n. 
Su antecesor, un juego de billares 
de Ohima moda, basado en una ac- 
ci6n trepidante, yen el que como si 
de Swachernager se tratara, la 
quina de matar liquida uno tras 
otro Io que se le ponga por delante. 
Estamos hablando del GREEN 
BERET, nada m6s y nada menos 
que el boina verde, desde luego 
con este fftulo algo gordo tenia que 
esperarnos. 
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El producto viene avalado por 
u;,a casa de larga tradicci6n en la 
producci6n de software; los inefa- 
bles KONAMI. 
La renombrada casa japonesa, 
es una experta en la fabricaci6n de 
software para m6quinas de billa- 
res. Todos recordamos su gran bum 
es este campo con los famosos 
HYPER SPORTS, m6s conocidos vul- 
garmente como las olimpiadas. 
Hasta entonces, nadie habfa tra- 
tado la figura humana como KO- 
NAMI, los gr6ficos utilizados para 
los atletas y el movimiento del que 
estaban dotados, hace de HYPER 
SPORTS, un autntico cl6sico de los 
megaarcades. 
La vena deportiva continu6 con 
HIPER MEDALLIST, despu6s Ilega- 
ron las adaptaciones de los mismos 
para ordenadores dom6sticos, de 
las cuales hemos podido disfrutar 
en nuestros monitores. 
Uno de los gltimos productos de 
KONAMI para m6quinas de billa- 
res, es el GREEN BERET, que ha si- 



do adaptado en su versi6n para or- 
denador dom6stico por la casa 
IMAGINE. 
Los que hayan podido contem- 
plar la versi6n de los billares, ha- 
br6n apreciado las excelencias del 
juego a que nos referimos, en el 
que los insuperables gr6ficos y la 
imparable marcha del boina verde, 
nos hacen pegarnos a la pantalla. 
Pues por una vez y sin que sirva 
de precedente, nos encontramos 
con una versi6n para el Amstrad 
del famoso juego, que no desmere- 

ceen nada al juego original para 
megaarcades. 
Por arte del software, nos hemos 
introducido en el cuerpo de un boi- 
na verde, el cual pretende una ba- 
se sovi6tica de alta seguridad. 
Nuestra arriesgada marcha, co- 
mienza en las inmediaciones de un 
interminable puente de ferrocarril, 
que separa la base del resto de las 
instalaciones al otro lado del rio. 
Armado solamente con un cuchi- 
Iio de monte, el boina verde se 
abre paso entre los primeros defen- 
sores que nos salen al paso; algu- 
nos de los cuales van armados con 
ametralladoras, morteros y armas 
pesadas que nos pueden destruir si 
no actuamos con rapidez. 
Para conseguir armas m6s sofistio 
cadas cue un simple cuchillo de 
monte, nemos de eliminar al co- 
mandante que aparece ante noso- 
tros en contadas ocasiones, de las 
cuales no podemos dejar pasar 
una, 
Con su aniquilaci6n, podemos 
conseguir tres tipos de armas; lan- 
zallamas, lanzacohetes y granadas. 
Cuando nos hacemos con una de 
estas armas, nuestra marcha se fa- 
cilita en gran medida; primero gol- 
peando con elias a los defensores 
que nos acosan y dispar6ndolas, 
con Io cual causamos gran nOmero 
de baias. 
Cada una de estas armas dispone 
de tres disparos antes de quedar inuo 
tilizada, por Io que debemos reser- 
varlas para las zonas en que las 
oleadas de atacantes son m6s inten- 
sas (generalmente la final de cada 
fase, cuando suena la alarma). 
Con nuestra inquebrantable mo- 
ral, hemos de atravesar una tras 
otra las distintas zonas de la base, 
hasta Ilegar al campo de prisione- 
ros, que es nuestro objetivo final. 
Sin lugar a dudas, nos encontra- 
mos ante el mejor de los juegos que 
abordan la tem6tica iniciada con 
Rambo y seguida por el Comando. 
En GREEN BERET, la acci6n es 
trepidante, somos acosados por to- 
dos lados, nuestro hombre dispone 
de una amplia gama de movimien- 
tos; puede subir, bajar, saltar hacia 
delante, hacia detr6s, tumbarse y 
correr. 
La realizaci6n de las distintas 
pantallas, est6 acompaada de 
unos decorados muy efectivos, que 
nos trasladan desde el puente de 
hierro hasta la base de misiles; en- 
tre camiones portamisiles, caones 
de largo alcance y robustas estruc- 
turas metclicas. 
El marco utilizado para la aven- 

tura, y su puesta en escena, no pue- 
den ser m6s acertados, las panta- 
Ilas est6n realizadas a todo color y 
con una t6cnica de dibujo muy rea- 
lista. 
El tratamiento de los personajes, 
y su movimiento, son dignos de 
menci6n; en pantalla nos encontra- 
mos con soldados de cinco cent/me- 
tros de altura, que se mueven con 
agilidad y van derechos al blanco. 
Es de destacar el movimiento 
conseguido, porque adem6s de la 
gama de movimientos del boina 
verde, hay ocasiones que nos en- 
contramos en la misma pantalla con 
seis o siete soldados movindose si- 
mult6neamente, sin ralentizar la ac- 
ci6n del programa. 
Pero el cuidado puesto en la par- 
te visual del programa, tiene su 
contrapeso en el sonido, este es un 
poco machac6n y reiterativo, con 
una m0sica poco imaginativa. 
Un programa en fin, que satisfa- 
cer6 las exigencias de los m6s ex- 
pertos viciosos de la acci6n, y 
amantes de los hroes solitarios que 
son capaces de aniquilar a todo un 
ejrcito. 

,. HORRIBLE 
 &. UN ROLLO 
"' " OBRA 
: MAESTRA 
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MICRO es un programa de gran interns para aquellos 
dedicados a la proQramaci6n en c6dgo m6quina. Su misi6n 
fundamentales controlar el mcroprocesador y 
concretamente, el contenido de los registro.s..del mismo. Lo 
m6s interesante de este programa es la facdidad con que se 
puede manipular la CPU, permitiendo desde BASIC cargar los 
registros del ZSO y acceder a una rutina determinada, 
observando en todo momento los contenidos de los registros 
del micra. 

os reistros que 
controla este pro° 
grama son los siguientes: A, B, C, D, 
E, F, H, L, ,, • to.. o':n contro- 
la, como es naturaJ, los registros BC, 
DE y HL. 
No se han incluido en 61 los regis- 
tros SP, PC, I y R, pues su incorrecta 
utilizaci6n puede bloquear el siste- 
ma. 
El programa se encuentra en su to- 
talidad en BASIC, ahora bien, es por 
as decirlo, un pequeo generador 
de rutinas cortas en c6digo m6quina 
que se sitgan en una zona previa- 
mente sealada por el usuario. 

I • m- tdmza 
.r.: ama. ICRO 

Bien, para utilizar el programa MI- 
CRO, Io cargaremos, y tras ponerlo 
en funcionamiento, responderemos a 
las preguntas que formule. 
Habrc que indicar inicialmente 
d6nde queremos que MICRO intro- 
duzca el pequeo programa que tie- 
ne que crear, por Io tanto, introdu- 
ciremos la direcci6n de una zona li- 
bre de memoria. 
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A continuaci6n introduciremos la 
rutina a la que queremos saltar (ne- 
cesariamente debemos querer saltar 
a alguna rutina, pues si no fuese asi, 
Para qu6 ver cu61 es el contenido de 
s registros? 
Una vez introducida la direcci6n 
de esta rutina, aparece en pantalla 
la relaci6n de los registros que po- 
demos cargar inicialmente, en el ca° 
so de que el usuario quiera modifio 
carlos; en caso contrario simplemen- 
te con pulsar RETURN conseguire- 
mos que ninggn registro adquiera un 
nuevo valor. Si el usuario desea mo- 
dificar algunos de los registros, ten- 
drc que indicar previamente cu61es 
son; esto se consigue pulsando la le- 
tra de orden que aparece junto a 
ellos, de esta forma si queremos mo- 
dificar el acumulador pulsaremos la 
a. Una vez indicadas todas las letras 
de orden, pulsaremos RETURN y ya 
s61o tendremos que introducir los va- 
lores con los que queremos cargar- 
los. Las entradas estcn controladas 
y no podr6s cargar un registro de 8 
bits con un dato de 16 bits. 
Una vez que hemos acabado con 
la opci6n anterior podremos ver ya 
los contenidos de los registros seggn 
los valores asignados, pero previa- 
mente habremos de indicar si quere- 
mosque imprimia por impresora ta- 
les contenidos. 
En un principio, MICRO muestra 
los valores de los registros que el 
usuario ha introducido, y una vez vi- 
sualizados, salta a la rutina indica- 
da por 61 anteriormente, presentan- 
do por gltimo los contenidos de los 
registros tras haber retornado de 
ella. 
Si queremos saltar a otra rutina o 
repetir la mismo con otros valores, 
pulsaremos una tecla cualquiera. 



MODULO$ 
DE MICRO 

110-150 

200-240 

250-330 

340-380 

390-400 

410-490 

510-680 

Inicializaci6n de pantalla e in- 
troducci6n de la zona de ope- 
raciones y la rutina a la que 
se va a saltar. 
Introducci6n de las letras de 
orden de los registros a car- 
gar. 
Introducci6n de los nuevos 
valores de los registros y for- 
maci6n de una cadena alfa- 
numrica que contiene el c6- 
digo m6quina que m6s tarde 
se POKEARA. 
Se sigue generando la cade- 
na alfanumrica bS que con- 
tiene el c6digo m6quina. 
Selecci6n de impresora o pan- 
talla e introducci6n del c6di- 
go m6quina en la zona de 
operaciones. 
Visualizaci6n de los conteni- 
dos del MICRO antes y des- 
pus de acceder a la rutina. 
Rutina a la que se salta des- 
de 410-490 para visualizar 
los contenidos. 

V, RIABLES 
MA$ IMPORTANTE$ 
* b$ Contiene el c6digo m6quina 
que se va generando seggn 
las necesidades del usuario. 
* reg Direcci6n a partir de la cual 
se guardan los contenidos de 
los registros para er leidos 
por MICRO. 
* flags Almacena los 8 bits del regis- 
tro F. 
* acl Contiene la direcci6n donde 
opera MICRO. 
j Rutina a la que quiere saltar 
el usuario. 

Nota: si deseas ver el c6digo m6qu/na crea- 
do por MICRO puedes tedear la siguiente sen- 
tenc/a: 
for i--ad to reg-h . he×$(peek (i), 2);: next. 

MICRO presenta una estructura un 
tanto compleja, pero se puede corn- 

prender f6cilmente. La complejidad 
deriva de la forma como MICRO 
crea el SUSPROGRAMA en c6digo 
m6quina necesario para controlar la 
CPU. Adem6s, esto se ve afectado 
tambidn por la capacidad que tiene 
MICRO para situar esta rutina en 
M.C. en cualquier zona de memoria. 

38 "** 
48 '** 8 de dulio de 1986 ** 
68 '** Pot G. LOPE2 5. ** 

188 ' 
118 MODE 2:PRI STRING$(88,154};:P 
R!NT ° dulio 1986.'SPC(17}CHR$(24) 
' M I C R 0 'CHR'&(24)SPC(17)' 
Por G. Lo'CHR$(8}CHRS(22)'I'CHR$(16 
I)CHR(22)'Spez':PRINT STRINGS(88,] 
54); 
128 WINDOW ,88,4,25 
]38 LOCAE 1,22:PRINT CHRS(174)CHR 
(22)'IDo'CHRS(8)CHRC(]61)'nde puedo 
operar?'CH(22)'8';:INPUT ' ',ad 
148 IF ad<&48 D ad>-I 7HEN CLS:GO 
TO 138 
158 CLS:LOCATE 1,22:PRI CHR(]74) 
CHRS(22)']Do'CH(8CHR$(161)'nd q 
uieres salar?'CHRS(22)'8';:]NPUT  
j 
]68 CL 
178 DIM a(ll} 
188 DAA A,B,C,D,E,H,L,BC,DE,HL,IX, 
I¥ 
198 DATA 3E,g6,SE,16,1E,26,2E,81,11 
,2],DD,FD 
28B LOCAE ],3:PRINT 'INDI LOS RE 
GISROS A HODIFICAR' 
218 FOR i=8 TO If:LOCATE 3,5+i:READ 
¢:PRINT CHR$(97+i)'- 'd$:NEXT 
228 CLEAR INPUT: WHILE INKEY(6)=- 
D INKEY(]8)=-I 
238 kFINKE¥$:IF K" THEN 248 ELS 
E KLE(k$):a=ASC(k$):IF a>96 A 
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268 
27B 
29B 

ND aZ]Bf THEN a=a-97:a(a)=]:LOTE 
3,5+a:PRINT CHR(24)kSCHR(24) 
248 WEND 
RESTORE 198:FOR 
READ &:IF a(1)=8 THEN 338 
WHILE NOT 
LOTE ]2,5+i:INPL "Cargado a 

iF i)6 THEN I=2 ELSE I:I 
388 IF (a}255 OR a(8) D I=! THEN 
LOMTE 12,5+:PRINT SPC(68):GOTO 28 
8 
318 IF i>9 HEN d+'21' 
328 aHEX$(a,q):bbS++RIGHTS(aS 
,2):IF I=2 THEN 
338 NEXT 
348 adLEN(bS)/2+38:op=d:JHEX$( 
d,4):bS=b$+'CD'+RIGS(J$,2)+LEFT$( 
$,2) 
358 d+3:red:d$=HEXS(d,4):bbS+ 
'ESFSEI22'+R]GHI'S(d,2)+LEFTS(d&,2) 
+'EI22":d+2:HEXS(d,4):bS=b$+RI 
GHTS(d,2)+LEFS(dS,2) 
368 TA ED43,ED53,DD22,FD22 
378 FOR i=] TO 4:d+2:RD kS:¢H 
$(d,4):bb$+k$+RIG(,2)+LEFT 
388 bb$+'cgc3":JHE$(J,4):bb$ 
+R]G$(J,2)+LEFTI(J$2) 
39B LOTE i,22:PRI CH(174)'Sal 
ida por impresora (S.)?";:INP ' 
',K$:KUPPE(KS):IF K"S' TH p 
rt=] ELSE IF k'N' HEN prt=8 ELSE 
LOTE 38,22:PRI SPC(58);:GOTO 3 
48 ad:FOR i=1 TO LEN() S]EP 2: 
aL('&'+MI(b$,i,2)):POKE o,a:o= 
48 CLS 
428 a' SI]C] ]N]CIAL DE  CP 
U ':PRINT CH(24)a$CH(24):IF prt 
=I HEN PRI M8,aI:PRINT #8,SIRING 
$(29,'-') 
438 PRI:IF prt=I THEN PRI #8 
448 POKE op,&Cg:LL ad:GOSU8 588 
458 PRI:IF prt=l THEN PRI 

468 a' SITUACI FIlL DE LA CPU 
':PRINT CHl(24)aSCHff(24): IF prt= 
I THEN PRINT #8,aS:PRINT M8,STRINGS 
(27,'-') 
47B POKE op,&C3:LL ad:PRI: IF p 
rt=! TH PRINT #8 
48 GOSUB 58g 
49g LOTE 32,22:PRINT CHR(24)'PUL 
 TEC'CHR$(24);:WHILE INKEY": 

WEND:RUN 
588 flagBI(PEEK(reg),8) 
518 a=PEEK(reg+i):'ACLULAOOR 
':GOSUB 678 
528 a'BIT 8:C '+M](flagS, 
B,I):PRINT aS:IF prt:l THEN PRINT # 
8,aS 
538 a=PEEK(reg+5):a'REGISTRO B 
':GOSU8 678 
4B a'BIT I:N '+MID$(flagS, 
7,1):PRINT aS:IF pr=I THEN PRINT # 

aO 

8aS 
638 a=PEEK(reg+2):a°REGISTRO L 
':GOSUB 67 
648 a=PEEK(reg+8)+PEEK(reg+9)*256:l 
=LEN(STR$(a))-I:a°REGISTRO IX ' 
+HEXS(a,4)+' '+RIGHTS('BB88'+RIGHT$ 
(STR$(a),I),5)+STRINGS(19,32):PRINT 
aS ;:IF prt=l THEN PRINT #8:PRINT # 
8,aS; 
658 a=PEEK(reg+IB)+PEEk(reg+II)*256 
:I=LEN(STR(a))-]:a'REGISTRO IY 

8a$ 
58 a=PEEK(reg+4):a'REGISTRO C 
':GOSU8 678 
568 a'BIT 2:P 'Ml[Y&(flagS, 
6,1):PRINT aS:IF prt=I THEN PRINT 
8,aS 
57B a=PEEK(reg+7):a'REGISTRO O 
':GOSUB 678 
588 a'BIT 4:H '+MID$(lagS, 
4,]):PRINT aS:IF prt=l THEN PRINT 
8,aS 
58 a:PEEK(reg+6):a'REGISTRO E 
':GOSUO 678 
68 a'BiT 6:Z '+N]D(flagS, 
2,I):PRINT aS:IF prt=I THEN PRINT 
8,aS 
61 a=PEEK(reg+3):a$='REGISTRO H 
':GOSU8 678 
628 a'BIT 7:S '+MIO$(flagS, 
I,I):PRINT aS:IF prt=l TH PRINT 

I' II 
OLO I I 

o O 

'+HEX$(a,4)+' 
TS(STR$(a),I),5):PRINT a:IF prt=l 
THEN PRINT #8,aS 
668 RETU 
678 I=LEN(STRS(a))-I :aaS+HEXS(a,2 
)+' ' +RIGHT$('8' +RI GHT$(STR$(a), 
),3)' '+OIP(a,8)+STRING$(I8,2 
):PRINT aS;:IF prt=l THEN PRINT #8, 
aS; 
88 RU 
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CONDUCE TU AhISTRAD 464 

A K 

,,, YAGUANTA 

RTIGO 

Esta es la Plata VORTEX SP-512, capaz por 
si sola de transformar tu ya conocido y dominado 
AMSTRAD 464 en un prodigio: 512 K de 
memoria, que rnultplican hasta el v.go las 
posibilidades de tu ordenador, gracias al sistema 
operavo VORTEX V-DOS incluido en la ROM. 

Acude con tu AMSTRAD 464 a 
Servicios especializados VORTEX. 
Una sencilla operaci6n y la Placa 
VORTEX queda 
instalada. Se ha realizado 
la transformaci6n 

o de los que te Ileva a una nueva frontera. 
Pasa a "RAM EXPANSION". 
/.Ests preparado? 



La Placa VORTEX SP-512 
te abre un nuevo mundo de 
posibilidades de uso de tu 
ordenador. 
Su instalacin en el AMSTRAD 
464 se realiza en los Servicios 
especializados VORTEX, 
quedando bajo la garant/a 
PROTOMEC. 

J 

Ah0ra, 
carga atu Amstrad 
hasta 2 Megas,,, 

.. Con los Sistemas 
OperatJvos y las Unidades de Disco 
VORTEX V-DOS estds en condiciones, no s61o 
de preparar y desarrollar programas 
mds largos y complejos, sino de utJlizar, de 
verdad, hasta 2 MEGAS de datos. 
El sistema operatJvo VORTEX V-DOS te Io 
permite. Es tan potente que, po .lemplo, 
puedes acceder a 16 ficheros directos, 
ademds de dos secuenciales. 
Ficheros, Oatos y Programas, Bas de 
Datos... Para dar servicio a esta capacidad de 

ALAVA 
DATAVI 
Avda Gastez. 29 
Vitoria 
ALICANTE 
AUDIO- COLOR 
Ata. Maisonnave. 17 
AVILA 
COMERCIAL ROCHA. S A, 
C! Ar,alo. 2 
BADAJOZ 
DONCEL 
C/Herfl:ff Cortes. ] 
BALEARES 
DISTELEC 
C/Angel Gumera, 23 
Palma de Ma'lorca 
BARCELONA 
SVI DELEGACION CTALUIA 
Aa. Pau Clarls. t6S. Plso 3 ° 
BURGOS 
E.I.S A 
C/Madrid. 4 

CADIZ 
MECANOGRAFIA GADITANA 
C j Rosario, 2 
GRANADA 
TECNICAS INFORMATICAS 
APLICADAS 
Plaza Santo Cnsto. 3 y S 
GUIPUZCOA 
SOFT 
C/Cuesta de Aldapela. s. 
San Sebamn 
DONOSTI COMPUCARD 
Ada. de la Zumola. 22 
San Sebastian 
JAEN 
OFIMATICA JAEN 
Pasale Maza. 7 
LA CORUIIA 
LOGICAR 
Urbanzac6n Gahoa. 123 
Samoo - Sada 
LOGROIO 
EGUIZABAL C Doc¢ores 
Castro Velo, 34 C 

almacenamiento y de ampliaci6n operatJva, 
estdn los stemas OperatJvos y las Unidades 
de Disco VORTEX V-DOS, listos para ser 
conectados a los AMSTRAD 464, 664 y 6128. 
Acude a un Servicio VORTEX y descubre 
la nueva frontera de tu AMSTRAD 

MADRID SALAHANCA 
MIQ: O WORLD QUINTA AVENIDA 
C Fernandez de la Hoz, 46 C Espafia. 79 
MALAGA SANTA CRUZ DE TENERIJ:E 
MANIN NFO,RMATICA EQUNTESA 
Paseo Marldlo "Gudad de C San Sebastian. 74 
Mcblla', 25 SANTANDER 
Pso II. Deparcamento C INSUMES 
NAVARRA Centro Comeroal 
MICRO- HOBBY Ct luan Ceballos. 9. bald 
Q Aralar. 40 Torretavega 
Pamplona SEVILLA 
PALENCIA MICROTIENDA I 
LA ESFERA C Aceituno. 8 
CY Mayor Pnncpal, 87 

Inf6rmate en VORTEX. Tel. (91) 675 75 99 
Avda. de la Co  ttuci6n, 260. 
Torrej6n de Ardoz. MADRID, 
0 en cualquiera de los Servicios especializados 
VORTEX, 
ESPECIAL INTERES 
DE ORMATICA 
;RAAIAU NCL E G,O$' 

VIZCAYA 
CHIP & TI" 
Alameda de Urquuo. , 3 
TOLED • Bdbao 
HOBBYLA ''er, ZAMORA 
C Fuenlabrada.'s/ VIDEO IMAGEN 21 
PoUgono Industrial C! San Torcua o, 21 
VALLADOLID ZARAGOZ. 
CHIPS & TIPS DAJOL 
Plaza de Tenenas, II CJ C,novas, 31 

0 M P U T E I: S Y :i T E M E 



DIBUJANDO 

Antonio L. Aretio Najarro 

on este programa 
podemos realizar dibujos en panta- 
Ila y conocer las coordenadas del pi- 
xel que estamos dibujando. 
Para ello nos valemos de cuatro 
variables (xl ,x2,yl,y2) que almace- 
nan las posiciones del pixel antes y 
despu6s del movimiento. 
El movimiento Io realizamos con la 
ayuda de ocho teclas, cuatro para 
movimientos horizontales y vertica- 
les y cuatro para los movimientos en 
diagonal. La correspondencia entre 
tecla y movimiento se encuentra en 
el folio del listado del programa. 
Adem6s, si pulsamos simult6nea- 
mente una de esas teclas y la barra 
de espacio, conseguiremos que el pi- 
xel se desplace por la pantalla sin di- 
buiar. 
El desglose del programa por li- 
neas es el siguiente: 
0 Selecciona el modo de pan- 
talla y el color del borde. 

30 Selecciona las tintas que va- 
mos a utilizar. 
40-50 Abre una ventana en la 
parte inferior de la pantalla 
y le asigna colores al papel 
y a la pluma. 
60-70 Asigna los valores iniciales 
de las variables e imprime 
en pantalla un pixel de co- 
lor blanco. 
89-90 Imprime en la ventana las 
coordenadas de la posici6n 
del pixel que estamos dibu- 
jando. 
100-170 Examina el estado de las te- 
clas, aumentando o dismi- 
nuyendo una de las dos 
coordenadas si alguna tecla 
est6 pulsada. 
180 Imprime en la nueva posi- 
ci6n un pixel de color blan- 
CO. 
190 Si la barra de espacio est6 
pulsada imprime en color 
negro un pixel en la posi- 
ci6n inicial, consiguiendo de 
esta manera movimiento sin 
dibujar. 

200 Iguala las coordenadas ini- 
ciales y finales. 
210 Nos manda a la linea 80 
para repetir el proceso. 
El listado, asi como las teclas que 
utilizamos son: 

Y U J 
H J 
B N 

M 

Barra de espacio 

(Mover sin dibujar) 

- DIBUJANO0 - POR A. ARE 
2@ MODE I:BORDER @ 

Sg INK @,@:INK 1,26:INK 2,6:INK 3,1 
4@ WINDOI #1,1,40,25,25 
5@ PAPER #Ij3:PEN #I,2:CLS #i 
68 xl 32g:yI 200:x2 xl:y2 
70 PLOT 
80 LOCATE #I,2,1:PRINT 
90 LOCATE #1,20,1:PRINT #|,"¥- ;YPO 
I88 IF INKEY(42)-8 THEN y2 y2+2 
110 IF INKEY(46)-8 THEN y2 y2-2 
128 IF INKEY(45)=8 THEN x x2+2 
138 IF INKEY(44)-8 THEN x2 x2-2 
148 IF INKEY(43)-8 THEN y2=y2+1:x2 
x2-I 
158 IF INKEY(35) g THEN y2=y2+l:x2 = 
x2+I 
168 IF INKEY(38)=8 THEN y2=y2-1:x2 = 
x2+l 
178 IF INKEY(54) g THEN y2-y2-1:x2 
x2-I 
188 PLOT x2,y2,1 
198 IF INKEY(47) 0 THEN PLOT xl,yl, 
280 xl-x2:yl-y2 
218 GOTO 80 

+ PROGRAMAS EDUCATIVOS PARA: 
GOSLINE,.,. AM STRAD, M SX, SPECTRUM 

SERVICIO INFORMATICO 
))EDORTO: PROGRAMA PARA EJERCICIOS DE ORTOGRAFIA "UNA CORREC- 
TA ORTOGRAFIA ES SINONIMO DE FORMACION Y CULTURA. Y QUE LA 
ALCANCE EL USUARIO PRETENDE EDORTO". 
}}EDACLE: PROGRAMA PARA EJERCICIOS DE ATENCION Y COMPRENSION 
LECTORA "EL OBJETIVO PRIMORDIAL DE EDACLE ES EJERCITAR Y POR 
TANTO DESARROLLAR, LAS CAPACIDADES DE ATENCION Y COMPRENSION 
LECTORA, TAN FUNDAMENTALES EN LOS ESTUDIOS COMO EN TODA AC- 
TIVIDAD DE CARACTER INTELECTUAL". 
)) EJEILE: PROGRAMA PARA EJERCITAR EL INSTRUMENTO LECTOR "LA FI- 
NALIDAD DE EJERCICIOS LUDICO-DIDACTICOS QUE PROPONE ESTE PRO- 
GRAMA ES AGUDIZAR LA DISCRIMINACION VISUAL Y, POR TANTO, PER- 
FECCIONAR EL INSTRUMENTO LECTOR (INSTRUMENTO LECTOR OJOSY 
CAPACIDAD DE ATENCION)". 
CASSETTE ....... 1.800 - DISCO .......... 2.750 
3 PROGRAMAS EN DISCO O CASSETTE .... 3.500 
SE NECESITAN DISTRIBUIDORES PARA TODA ESPAA 
PEDIDOS:GOSL INE, S.A.CUARTELES, 43 - 19, (29002) MALAGA - TEL. 31 18 77 
REGALO DE UNA CALCULADORA POR CADA CASSETTE 0 DISCO 



RA FICOS RELA TI VO$ 
EN 

Continuaremos esta semana hablando de los 
gr6fico$ en alta resoluci6n y c6mo simularlos 
desde c6digo, m6quina, estudiando las diversas 
rutinas del firmware que utilizaremos para este 
prop6sito. 

I programa que 
hemos preparado en esta ocasi6n in- 
cluye los comandos gr6ficos que no 
se vieron en el anterior capitulo, y 
con ellos se efectOa una pantalla de 
presentaci6n. 
Como siempre, Io primero que de- 
bemos hacer es preparar el modo de 
pantalla en que se desea trabajar. 
Seuidamente, y dado que vamos 
a traajar con gr6ficos en alta reso- 
luci6n, deberemos colocar el cursor 
de gr6ficos en la posici6n adecuada, 
esto se consigue desde Basic, con el 
siguiente comando: 
MOVE X,Y 
Para conseguir el mismo resultado, 
se dispone de la rutina del firmware 
que vemos a continuaci6n. 

Chequea un punto en una 
posici6n absoluta #BBFO 

El cursor de grficos se coloca en 
la posici6n indicada. Se lee el pixel 
que h6y en esa posici6n y la rutina 
nos da la tinta que contiene dicho pi- 
xel. Sila posici6n dada se encuentra 
fuera de la ventana grcfica, nos de- 
vuelve la tinta y el papel actuales. 

22 fcOOy AMSTRAD 

Condiciones de entrada 
El registro doble DE debe contener 
la coordenada X del punto a che- 
quear, y el registro HL debe conte- 
ner la coordenada Y. 
Condiciones de salida 
El acumulador contiene la tinta es- 
pecificada para el pixel que se en- 
cuentra en la posici6n dada. Los re- 
gistros BC, DE y HL y todos los flags 
se carrompen, los dem6s registros 
son preservados. 
Realmente nosotros utilizamos es- 
ta rutina para colocar el cursor gr6- 
rico en la posici6n deseada, aunque 
como podemos comprobar su funcio- 
namiento es bien distinto. 
La explicaci6n de su utilizaci6n, es 
sencilla, ya que permite colocarnos 
en la posici6n de pantalla deseada, 
sin que se ilumine ningOn pixel. 
Una vez situados en la posici6n 
adecuada, se llama por primera vez 
a la rutina encargada de dibujar en 
pantalla una serie de cuadrados so- 
bre una linea diagonal hacia el cen- 
fro de la pantalla. 
Esla rutina utiliza otros dos coman- 
dos gr6ficos de alta resoluci6n, que 
en Basic son los siguientes: 
MOVER X,Y 
DRAWR X,Y 
este Otlimo puede Ilevar adems dos 
parmetros adicionales que indiquen 
la tinta y la forma de impresi6n, y 
que pueden ser definidos desde c6- 
digo mquina de la forma que indi- 
cbamos en el anterior capitulo. 
Para realizar la primera funci6n 
hace una Ilamada a la siguiente ruti- 
na: 



Chequea un punto 
posici6n relativa IB a 

El cursor de gr6ficos se coloca en 
la posici6n indicada. Esta rutina nos 
devuelve en el acumulador la tinta 
que contiene el pixel situado en di- 
cha posici6n. Si la posici6n se eno 
cuentra fuera de la pantalla, se de- 
vuelven la tinta y papel actuales. 

Condiciones de entrada 

El registro doble DE debe contener 
el desplazamiento sobre la coorde- 
noda X, y el registro HL, el despla- 
zamiento sobre la coordenada Y. 

Condiciones de salida 

El acumulador contiene la tinta del 
pixel especificado. Se corrompen 
dos los flags y los registros BC, DE y 
HL. Se preservan los restantes. 
Esta Oltima, es semejante a la es- 
tudiada anteriormente, s61o que los 
par6metros que se dan ahora, de- 
ben ser referidos a la posici6n ante- 
rior del cursor de grficos. 
Para efectuar las lineas que nos 
proporcionar6n la formaci6n de los 
cuadrados, deberemos utilizar una 
rutina que sea capaz de dibujarlas, 
como la que vemos a continuaci6n: 

Dibuja una llnea 
relativa #BBF9 

Coloca el cursor de grgficos en el 
punto dado, ploteando todos los pi- 
xel que se encuentra a su paso. Los 
puntos que se encuentran fuera de la 
pantalla son ignorados. 

Condiciones de entrada 

El registro doble DE contendr6 el 
desplazamiento sobre el eje X, y el 
registro HL el desplazamiento sobre 
el Y. 

Condiciones de salica 
Se corrompen los registros AF, BC, 
DE y HL. Los dem6s registros se pre- 
servan. 
Una vez realizada la impresi6n de 
la primera serie de cuadrados, colo- 
caremos el cursor de gr6ficos en la 
esquina inferior derecha, para vol- 
ver a Ilamar a la rutina anterior e im- 
primir la segunda serie. 

Seguidamente se coloca el cursor 
en las esquinas superiores y, se pro- 
cede de la misma forma, con Io cual 
obtenemos una pantalla totalmente 
sim6trica. 
Por gltimo para enmarcar dichos 
dibujos, realizaremos dos Ifneas ho- 
rizontales y otras dos verticales, que 
vayan de un lado a otro de la pan- 
talla. 
Para ello colocaremos el cursor en 
la posici6n adecuada, y dibujaremos 
la linea correspondiente. 
Desde Basic, se obtienen estas If- 
neas mediante el siguiente comando: 
DRAW X,Y 
6sta tambi6n puede Ilevar dos parch- 
metros adicionales, como hemos 
mencionada anteriormente con 
DRAWR. 
La forma de obtener dichas lineas 
desde c6digo mgquina, ser6 Ilamano 
do a la siguiente rutina: 

Dibuja una llnea hasta una 
posici6n absoluta #BBF9 

Coloca el cursor de grcficos en la 
Oltima posici6n dada, iluminando to- 
dos los puntos existentes entre dicha 
posici6n e inicial. Los puntos que se 
encuentran fuera de los limites de la 
pantalla, son ignorados. 
Condiciones de entrada 
El registro DE deBe contener la 
coordenada X, y HL contendr el va- 
lor de la coordenada Y. 
Condiciones de salida 
Se corrompen los registros AF, BC, 
DE y HL. Los restantes se preservan. 
De esta forma colocando el cursor 
en cada una de la posiciones desea- 
das y dando los valores adecuados 
a cada uno de los registros, obten- 
dremos las lineas horizontales y ver- 
ticales deseodas. 
Con todo Io explicado en estos dos 
Oltimos capitulos del curso, estamos 
en condiciones de trabajar en el mo- 
do de alta resoluci6n de pantalla 
desde c6digo m6quina, sin que po- 
damos encontrarnos con ningOn tipo 
de problemas. 
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Himf GENA3.1 Amblr. Pmg 

Pas i sr-rrs: OO 

AOQQ 

AOQO 3COl 

AOQ5 11400 
AO08 219b00 

IQ ORG #AO00 
20 ; 
30 ;MODE 
40 ; 
50 LD A,I 
60 gALL 
70  
8Q ;PLOT 18Q,15Q 
90 ; 
100 LD DE,180 
110 LD HL.150 

A024 CD5OAQ 
A027 EDSAAO 
AO2A 210A11 
AO2D 11A4AO 
AQ3O CD97AQ 
A033 210C11 
AQ3b 11ACAQ 
A039 CD97AO 
A03C C9 
AO3D C9 

AQ3E 3E01 
A040 CDDEBB 

270 CALL PLOTR 
280 CALL PLOTS 
29Q LD HL,#11QA 
300 LD DE,TXTI 
310 CALL PRINT 
320 LD HL,#110C 
33Q LD DE,TXT2 
340 CALL PRINT 
350 RET 
360 RET 
37Q ; 

38Q ;TINTA I PARA 8RAFICO 
390 
400 INKI: LD A,I 
410 ALL #BBDE 

AOQB DEAB 
AOQE AF 
AOOF D59BC 
A012 CD3EAQ 
A015 CD5AAO 
AQ18 CD44AQ 
AOIB CDSOAO 
AQIE CDSAAO 
A021 CD4AAO 

120 CALL #BEA A043 
130 ; 
140 ;NODO DE ESCRITURA NORMAL 
150 ; 
laO XOR A 
170 CALL #BC59 A044 3E02 
180 ; A046 
19Q ;BUCLE PRINCIPAL A049 
200 ; 
210 CALL INKI 
220 CALL PLTS 
230 CALL INK2 AO4A 3E03 
240 CALL PLOTR A04 CDDEBB 
250 CALL PLOTS AO4F 
260 CALL INK3 

420 RET 
430 ; 
440 
450 ;TINTA 2 PARA GRAFIOS 
460 
470 INK2: LD A,2 
480 CALL #BBDE 
490 RET 
500 ; 
510 ;TINTA 3 PARA 8RAFICOS 
520 
530 INK3: LD A,3 
540 CALL #BBDE 
55O RET 
560 
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His{t GENA3.1 Assembler. Page 

50 
A050 110200 590 
A053 210200 
A059 C9 
a30 
40 
50 
AOSA Ob9a 
A05C C5 
AO5D 110000 
A060 210100 690 
AOb3 CDEDBB 700 
A066 CI 710 
AQb7 IOF3 720 
AO9 O6FA 73O 
AOB C5 740 
A06C 110100 750 
AObF 210000 
A072 DEDB 770 
A075 C1 780 
AO7& IOF3 790 
A078 Obgb 800 
AO7A C5 810 
AO7B 110000 20 
AO7E 21FFFF 830 
A081 CDDBB 840 
A084 i 850 
A085 10F3 
A087 ObFA 870 
A089 5 SSO 
AOBA 11FFF 890 
AOSD 210000 900 
A090 CDEDBB 910 
A093 CI 920 
A094 IOF3 930 
AOg& C9 940 
950 
970 
A097 CD75BB 980 
AOgA IA 990 
AOgB FEFF 1000 
AOgD C8 1010 
AOgE CD5ABB 
AOAI 13 1030 
AOA2 18Fb I40 
1050 
lObO 
1070 
AOA4 414D5354 1080 
AOAB FF 1090 
AOAC 53454D41 1100 
AOB3 FF 1110 

;PLOTR 2,2 
PLOTR: LD DE2 
LD HL2 
CALL #SEED 
RET 

| 
PRIMER 
; 
PLOTS: LD B 150 
LICI : PLISH BE 
LD DEO 
LD HLI 
CALL 
POP 
DJNZ BIJCi 
LD B250 
LD DEI 
LD HLO 
CALL #BBED 
POP 
DNZ BUC2 
LD B,150 
BUC3: PUSH 
LD 
LD HL-I 
ALL 
POP BC 
D3NZ BUC3 
BUC4: PUSH 
LD DE-I 
LD HLO 
CALL 
POP 
DJNZ BUC4 
; 

PRINT: ALL #BE75 
8LIC5: LD A (DE) 
CP 255 
CALL #BB5A 
aR BU5 

; 
; 
TXTI: 

TXT2: 

DEFM "AMSTRAD" 
DEFB 255 
DEFM "SEMANAL" 
DEFB 255 

Pass 2 errr: 00 

TABLA DE ETI  UETAS 

BUC1 A05 BUC2 AO&B BUC3 AO7A 
EU4 AO89 BLICS" AOgA INKI AO3E 
INK2 A044 INK3 AO4A PLOTP A050 
PLOTS AO5A PRINT A097 TXTI AOA4 
TXT2 AOA 

10 MODE 
20 PLOT 180150 
21 
30 GOSUB 100 
31 
40 PLOTR 
50 GOSUB 
60 PLOTR 2,2 
70 @OSUB 100 
81 LOCATE 1710:PRINT "AMSTRAD" 
82 LOATE 17,12:PRINT "SEMANAk" 
90 END 
IQQ FQR N-I TO 150 
110 PLOTR 0I,X0 
120 NEXT 
130 FOR N-I TO 250 
140 PLOTR 10X0 
150 NEXT 
170 PLOTR 0-IX0 
180 NEXT 
190 FOR N=I TO 250 
200 PLOTR 
I0 NEXT 
220 RETURN 

10 REM $PROGRAMA CARSADOR 
20 FOR N=&AO00 TO &AOB4 
30 READ A:SLIMA=SUMA+A 
40 PQKE N,A 
5O NEXT 
bO IF SUMA<>&577 THEN PRINT "ERROR 
EN DATAS" 
70 DATA 62,120514188,17180 
BO DATA 033150,0,205,234,1B7 
90 DATA 175205BgBB205&2160 
100 DATA 20590160,205ae1&O205 
ilO DATA 

120 DATA 160,205801&020590I0 
130 DATA 33101717164I0205 
140 DATA 151,1&033,1217I?i72 
150 DATA 1602055I020120162 
160 DATA 1205222IBT,201,b22 
17O DATA 20522218720123205 
lEO DATA 222,187,201,172033 
190 DATA 20205237187,20b 
200 DATA 150197170,033I 
20 DATA 0205237187i9316243 
220 DATA 250199,17,1,0,33 
230 DATA 0020523718719316 
240 DATA 24361501971700 
250 DATA 33255255205237187193 
26 DATA 1243625019717255 
270 DATA 2553300,205237187 
280 DATA 193,16243201,205II?1B 7 
290 DATA 262542552002050187 
300 DATA 19242466577,8384 
310 DATA 82b568,2558369,77 
320 DATA bS78b576255O,O 
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Presenta: 

inform ica 

el l  piz al que gusta deck 
mientras nuestros competidores dicen no 
UNICO PARA AMSTRAD, CON PRECISION PIXEL 

FUNCIONES 

UNICO M EN U-DP£NTLLA 
ARRASTRE OBJETOS PANTALLA 
TRASLADO OBJETOS PANTALLA 
TRASLADO DE CURSOR SI 

CAJAS ELASTICAS [ SI [ SI [ 
LINEA ELASTICA  S! [ SI [ 
TRIANGULO ELASTICO i SI  
ELIPSE ELASTICO . I Stl B 
D,AMANTE ELAST,CO 

]  I 
ESP  OTROS  

 ELASTICO 

CUBO ELASTICO 

PIRAMIDE ELASTICA 
CIRCUNFERENCIAS 

CIRCULOS RELLENOS 
CAJAS RELLENAS 
CuINPS ES RELLENAS 
A 
[ SLXDOR DE CORTES 

___DISENO DE ZOOM 
1MAGEN ESPEJO E INVERTIDA 
_FONDO DE REFERENCIA 
REJILLA DE FONDO 
OPCION DISPLAY X, Y 
RELLENADO CON COLOR 
t LAVADO DE COLOR 
VOLCADO PANTALLA RESIDEN;rE 

DIBUJO DE BORDES EN 3 D 
M ° 
ANOS DE BROCHA 
[ _E- ORAS 
F AS BASICAS 

VARIADOR D_E MEZCLAS 
SOMBREA DE MEZCLAS XOR 
FICHERO ICON'S RESIDEES 
_fllCHERO RELLENOS RIDENT 
26 COLOR DE PAPEL 
PALETA DE 15 TONOS DE COLOR 

POSICIONAMIENTO DE PUNTO 
RAYOS DESDE UN PUNTO FIJO 

DIBUJO REFLADO (PO 
FUNCION HOME 

CONTROL DESDE TECLADO 

SI I NO 
s I NO 
SI I NO 
Sl ]NO . "STOS SON 
si si 8- LGUNOS E, PLOS 
SI ]NO 
s, NO ° I E LOS GRAFICOS QUE VD. 
I st NO 
 si NO  o. PODRA REALIZAR CON NUESTRO 
  o   LAPIZ OPUCO 
Sl NO 

CONTROL CON JOYSTICK 
DISNIBL MODOS 1 Y 2 
DEBIDO A LA FALTA DE ESPACIO NO PODEMOS LISTAR LAS OTRAS 
40 FUN TONES MAS OUE NUESTR # LAPIZ ES CAPA. E HACER. 
DISPOBL; ', ' ,. 
CPC 464 CASSETTE ...... '. 'TITI ' , S. 
CPC 464-664 DISCO ...................... 6.900 Ptas 
CPC 6128 DISC t ............................ 6.900 Ptas. 
IVA no incluido) 
CONDICIONES ESPECIA I'S PA ' DISTRIBUIDORES 

S I NO I 
SI ]NO 
SI NO 
[ S1 NO 
I s I st I 
I Sl I NO 
Sl NO 
SI NO 
l SI I s I 
Sl I NO ! 
SI I ? I 

DE YENTA EN LOS MEJORE. OMERCIO 
DE INFORMATICA 
Si Vd. tiene aiguna dificultad para obtener el hipiz 6ptico 
puede dirigitse a: 
Ofit Avda. Isabel II, 16 
 Tels. 455544- 455533 
informtica   
20011 SAN SEBASTIA 



Contabilidad 

Contabilidad de fcil manejo y 
de ra. n potencia que permite 
trabajar con cuentas de hasta 
cuatro niveles, con capaddad 
seE(n diskette de 500/1.000 
cuentas y de 2.000/10.000 
asientos. 
Permite modificar o dar de baja 
apuntes ya integrados en el 
Mayor, programaciones de 
cierres, ficheros de 
Contabifidad y Cuenta de 
lotaci6n, ejecuci6n de 
alances comparativos, 
reenlazndolos por meses, 
clave acceso restrinEido, etc... 

Facturaci6n 

Programa de gran agilidad y 
rapidez que incorpora el 
Control de Cfientes, con gran 
capacidad de datos, Articulos, 
AIbaranes, Facturas y recibos. 
Generaci6n automtica y 
manual de documentos, 
valoraci6n, a voluntad de los 
albaranes, todo tipo de listado, 
incluido el del IVA de las 
facturas emitidas para la 
declaraci6n de Hacienda, etc... 

Gran capacidad de datos, le 
permitirn a Vd. /levar con 
claridad y sencillez el control 
de su stock. 

15.500 ptas. 

El programa le permite I/evar 
un fibro de entradas/safidas, 
reorganizarlo, hacer listados de 
stocks .... le avisar de los limites 
de stocks, minimo y mximo 
por articulo, etc... 
Todo para la Ilevanza de su 
almacn. 
14.900 ptas. 
t 
 , 
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Los simulaciones por ordenador coda vez abarcan 

un espectro m6s.amplio en las cosas de la .vida 
¢otidiana. No solo en los campos de gestion y 
t¢ni¢os, sino tambin en los Ibdicos. En efecto, 
hay juego.s pora, los que se utiliz, a Io mec6nlca y la 
electr6nlca mas que la informatica, pero que se 
ban hecho tan famosos y populares, tan 
legendarios, que tarde o temprano alguien 
sucurnbe o la tentaci6n de ponerlos en el 
escenario de un computador. Este es el caso de 
(¢Pinbalh), los ¢asi t6picas ¢(m6quinas de las bolas) 
oue tan b. uenos ratos.han hecho pasar a casi todos 
s que leon este artlculo, independientemente de 
su edad. 

Antoni Freixanet A/aria 

as tectas s,n rede- 
finibles, el programa acapara 7K. 
Debemos mantener la pdota el 
mayor tie, ,po posible en movimien- 
to, para -Iio nos valdremo de los 
dos mandos para disparar a pelo- 
ta, cada v:z que la pelota tome con- 
tacto con na oared del circuito el 
marcador de puntos sumar a los ya 
obtenidos, 100 puntos ms, si Ilena- 
mos un agujero vacio sumar6, 1.000 
puntos y si obtenemos 20.000 pun- 
tos tendremos bola extra, si por el 
contrario Ilenamos los 15 agujeros 
del circuito imprimiendo en la parte 
inferior de la pantalla el anagrama 
de MICROHOBBY conseguiremos 3 
bolas y 10.000 puntos. 

8 /.COO AMSTRAD 
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El objetivo del juego es hacer la 
mayor cantidad de puntos posibles y 
mantener la pelota sin que se cuele. 

ESTRUCTURA 
DEL PROGR' MA 

10 Rem del programa 
50 Atributos del juego 
60 Grficos definidos 
1 O0 Variables 
140 Presentaci6n 
320 Selecci6n de controles 
470 Dibuja circuito del 
juego 
610 Disparar la pelota 
770 Movimiento de mandos 
840 Movimiento de la 
pelota 
1000 Imprime puntos y mi- 
ra si se gana pelota 
1050 Mira si el agujero por 
el que entra est6 
no o vaci6, si est6 va- 
ci6 Io Ilena, da pun° 
tosy mira si est 
completo 
1090 Resta un , elota y 
mira si s, ..an 
terminado 
1150 Fin del juego, mira si 
la puntuaci6n obteni- 
da es mayor que el 
rcord 
1250 Datas para la mOsica 
de presentaci6n 
1270 Dibuia mandos 
1290 Vacia los agujeros 
cuando Iosha Ilenado 
todos 

VARIABLES 
X,Y Coordenadas de la 
pelota 
Pelotas que nos 
quedan 
Marcador de puntos 
Rcord mxima 
puntuaci6n 
Desplaza la pelota a 
la derecha si es 1 y a 
la izquierda si es 0 
Es la tecla elegida 
para disparar la 
pelota 
Es la tecla elegida 
para mover mando 
izquierdo 
Es la tecla elegida 
para mover mando 
derecho 
Agujeros para Ilenar 

wS 

ES 

xS 

DIM 
Z(5) 
PLE 

UP 

Cantidad de agujeros 
Ilenos 
Si es mayor que 0 la 
pelota sube 
Puntuaci6n que hay 
que. obtener para ga- 
nar una pelota 



10 REM **************************** 
20 REM ***  1986 PING-BALL * 
** 
30 REM *** ANTONI FREIXANET ALAIA * 
40 REM **************************** 
50 INK 0,0:INK 1,1:PEN 1:PAPER O:PE 
N I:CLS 
60 SYM80L AFTER 253 
70 SYM80L 253,1,1,1,1,1,1,1,1 
80 SYMBOL 254,0,0,24,60,60,24,0,0 
90 SYMBOL 255,126,255,255,255,255,2 
55,255,126 
100 DIM Z(15):RECORD=20000 
110 PLE=O:X=37:Y=2:S=O:T=O:L=2:U=O: 
I=20000 
120 FOR A=! TO 15:Z(A)=O:NEXT 
130 N$=" MICRO HOBBY " 
140 BORDER O:RESTORE:MODE I 
150 PEN 3:LOCATE 1,5:PRINT " ### 
### # # ### ## ### # # 
## # #### ##### # 
### # # # # # ## ## ### # 
# # # #### ### 
# # # # ### # # ### 
## # # ### ###" 
160 PAPER 2:PEN 3:FOR A=I7 TO 22:L0 
CATE 6,A:PRINT CHR$(143);" 
";CHR$(143):NEXT 
A:PAPER 0 
161 FOR A=3 TO 35 STEP 5:LOCATE A,I 
7:PRINT " ":LOCATE A,18:PRINT .... :L 
OCATE A,19:PRINT .... :NEXT A 
170 FOR A=6 TO 35:LOCATE A,16:PRINT 
CHR$(143):NEXT A:PEN 2 
180 FOR A=95 TO 554 STEP 16:PLOT A, 
48:DRAWR O,96:NEXT A 
190 LOCATE 11,13:PRINT "PRESS RETUR 
N TO START" 
200 FOR 8=I TO 40:PEN (RND*2)+I:LOC 
ATE B,25:PRINT CHR$(237) I:LOCATE B, 
1:PRINT CHR$(237):NEXT B 
210 FOR 8=2 TO 24:PEN (RND*2)+I:LOC 
ATE I,B:PRINT CHR$(237):LOCATE 40,B 
:PRINT CHR$(237):NEXT 8 
220 PEN 2:LOCATE 2,24:PRINT CHR$(16 
4);" 1986 ANTONI FREIXANET ALAA-SA 
BADELL" 
230 CLEAR INPUT 
240 GOTO 260 
250 LOCATE NOTAI,21:PAPER 2:PRINT C 
HR$(253):PAPER 0 
260 READ NOTA:IF NOTA=O THEN RESTOR 
E:GOTO 260 
270 NOTAI=(RND*27)+7:LOCATE NOTAI,2 
1:PEN 1:PRINT CHR$(143) 
280 SOUND I,NOTA,15:SOUND 2,NOTA*2, 
15:SOUND 3,NOTA*4,15 
290 IF INKEY$<>CHR$ (13) THEN 250 
300 LOCATE 1,25:FOR A=I TO 26:PRINT 

:NEXT 
310 A=TIME:WHILE TIME <A+50*3:WEND 
320 PEN I:LOCATE 9,8:PRINT "SELECT 
CONTROLS:" 
330 LOCATE 7,10:PRINT "KEY FOR SHOO 
T THE 8ALL .... "; 
340 A$=INKEY$:IF AS="" THEN 340 
350 PAPER 2:PRINT AS:PAPER O:W$=A$ 
360 LOCATE 7,12:PRINT "STICK LEFT.. 
370 A$=INKEY$:IF A$='i " THEN 370 
380 IF A$=W$ THEN 370 
390 PAPER 2:PRINT AS:PAPER O:E$=A$ 
400 LOCATE 7,14:PRINT "STICK RIGHT. 
410 A$=INKEY$:IF AS= .... THEN 410 
420 IF A$=W$ OR A$=E$ THEN 410 
430 PAPER 2:PRINT AS:PAPER O:X$=A$ 
440 LOCATE 7,20:PRINT "PRESS "N  FO 
R REDEFINE KEYS":LOCATE 10,22:PRINT 
"ANY OTHER KEY TO START" 
450 A$=INKEY$:IF AS="" THEN 450 
460 IF A$="N" OR A$="n" THEN CLS:GO 
TO 320 
470 CLS 
480 FOR A=2 TO 24:LOCATE 38,A:PRINT 
CHR$(143);:LOCATE I,A:PRINT CHR$(I 
43);:LOCATE 40,A:PRINT CHR$(143);:N 
EXT A 
490 FOR A=I TO 40:LOCATE A,I:PRINT 
CHR$<I43);:LOCATE A,25:PRINT CHR$(I 
43):NEXT A 
500 PEN 3:FOR B=5 TO 35 STEP 2:LOCA 
TE 8,4:PRINT CHR$(255);:NEXT 8:PEN 
1 
510 FOR 8=15 TO 24:LOCATE 8,21:PRIN 
T CHR$(143):LOCATE B,22:PRINT CHR$( 
143):LOCATE 8,23:PRINT CHR$(143):LO 
CATE 8,9:PRINT CHR$(140);:LOCATE 8, 
7:PRINT CHR$(131);:NEXT 8 
520 LOCATE 39,25:PRINT .... :PEN 2:LO 
CATE 5,8:PRINT CHR$(238); .... ;CHR 
$(238):LOCATE 5,12:PRINT CHR$(238); 
.... ;CHR$(238):LOCATE 30,8:PRINT 
CHR$(238); .... ;CHR$(238):LOCATE 3 
O,12:PRINT CHR$(238); .... ;CHR$(23 
8):PEN I 
530 LOCATE 25,7:PRINT CHR$(139):LOC 
ATE 38,2:PRINT CHR$(138):LOCATE 18, 
22:PRINT .... ;CHR$(254)|"2 ":LOCATE 
18,16:PRINT CHR$(215); .... ;CHR$(21 
4):LOCATE 15,8:PRINT CHR$(133):LOCA 
TE 15,9:PRINT CHR$(141):LOCATE 15,7 
:PRINT CHR$(135) 
540 LOCATE 25,9:PRINT CHR$(142):LOC 
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ATE 25,8:PRINT CHR$(138):LOCATE 37, 
20:PRINT CHR$(214):LOCATE 2,20:PRIN 
T CHR$(215):LOCATE 36,22:PRINT CHR$ 
(214):LOCATE 36,23:PRINT CHR$(143): 
LOCATE 3,22:PRINT CHR$(215):LOCATE 
3,23:PRINT CHR$(143) 
550 PEN 2:LOCATE 35,20:PRINT CHR$(2 
31):LOCATE 4,20:PRINT CHR$(231):GOS 
U8 1270:GOSU8 1280 
560 LOCATE 24,21:PRINT .... :LOCATE 1 
5,21:PRINT .... :LOCATE 23,21:PRINT C 
HR$(215):LOCATE 24,22:PRINT CHR$(21 
5):LOCATE 16,21:PRINT CHR$(214):LOC 
ATE 15,22:PRINT CHR$(214) 
570 PEN 3:LOCATE 18,14:PRINT CHR$(2 
30);" ";CHR$(230); .... ;CHR$(230):PEN 
I:LOCATE 18,17:PRINT CHR$(131);CHR 
$(131); .... ;CHR$(131);CHR$(131) 
580 LOCATE 15,24:PRINT CHR$(143):LO 
CATE 16,24:PRINT USING "########";R 
ECORD;:PRINT CHR$(143) 
590 LOCATE 3,15:PRINT CHR$(222);CHR 
$(223):LOCATE 3,16:PRINT CHR$(221); 
CHR$(220) 
600 LOCATE 35,15:PRINT CHR$(222);CH 
R$(223):LOCATE 35,16:PRINT CHR$(221 
);CHR$(220) 
610 Y=24:X=37:CLEAR INPUT 
620 IF INKEY$= .... THEN 620 
630 IF INKEY$<>W$ THEN 630 
640 LOCATE 39,24-Q:PRINT .... 
650 O=Q+I:IF Q=10 THEN Q=O 
660 LOCATE 39,24-Q:PRINT CHR$(254); 
670 QI=IOO+Q*5 
680 SOUND I,QI,3 
690 FOR N=I TO 9:A$=INKEY$:IF A$=W$ 
THEN 640 
700 NEXT N 
710 Y=24-Q 
720 LOCATE 39,Y:PRINT .... :Y=Y-I:LOC 
ATE 39,Y:PRINT CHR$(254); 
730 FOR N=I TO 30:NEXT N:IF Y>2 THE 
N 720 
740 Q=Q*3:LOCATE 39,2:PRINT 
750 LOCATE X,2:PRINT .... :X=X-I:LOCA 
TE X,2:PRINT CHR$(254); 
760 FOR N=I TO 40:NEXT N:Q=Q-I:IF Q 
>0 THEN 750 
770 IF Y=24 THEN 1090 
780 IF PI=I THEN GOSU8 1280:LOCATE 
5,22:PRINT .... :LOCATE 6,21:PRINT 
":LOCATE 26,22:PRINT .... :LOCATE 27, 
21:PRINT " ":PI=O:IF (Y=23 OR Y=22 
OR Y=21) AND ((X>3 AND X<8) OR (X>2 
4 AND X<29)) THEN UP=30:SOUND 1,200 
,I 
790 IF P2=I THEN GOSUB 1270:LOCATE 
13,22:PRINT .... :LOCATE 12,21:PRINT 
.... :LOCATE 34,22.:PRINT .... :LOCATE 3 
3,21:PRINT .... :P2=O:IF (Y=23 OR Y=2 
2 OR Y=21) AND ((X>IO AND X<I5) OR 

(X>31 AND X<36)) THEN UP=30:SOUND I 
,200,1 
800 A$=INKEY$:PEN 2 
810 IF A$=E$ THEN CLEAR INPUT:LOCAT 
E 5,23:PRINT .... :LOCATE 26,23:PRI 
NT .... :LOCATE 5,22:PRINT "O":LOCA 
TE 6,21:PRINT "O":LOCATE 26,22:PRIN 
T "O":LOCATE 27,21:PRINT "O":PI=I:P 
PI=2 
820 IF A$=X$ THEN CLEAR INPUT:LOCAT 
E II,23:PRINT .... :LOCATE 32,23:PR 
INT .... :LOCATE 13,22:PRINT "O":LO 
CATE 12,21:PRINT "O":LOCATE 34,22:P 
RINT "O":LOCATE 33,21:PRINT "O":P2= 
I 
830 PEN ! 
840 LOCATE X-I,Y:A$=COPYCHR$(#O):LO 
CATE X+I,Y:B$=COPYCHR$(#O) 
850 IF Y=4 AND X>4 AND X<35 THEN PA 
PER 2:LOCATE X,Y:PRINT .... :PAPER 0: 
GOSUB 1050:GOTO 880 
860 LOCATE X,Y:PRINT .... 
870 RN=INT (RND*10):IF RN=3 THEN 93 
880 IF T=O AND AS=" " THEN X=X-I:GO 
TO 930 
890 IF AS<> .... THEN GOSUB 1000 
900 T=I 
910 IF T=I AND 85=" " THEN X=X+I:GO 
TO 930 
920 T=O:GOSUB 1000 
930 LOCATE X,Y-I:C$=COPYCHR$(#O):LO 
CATE X,Y+I:D$=COPYCHR$(#O) 
940 IF UP=O AND D$=" " THEN UPI=UPI 
+I:Y=Y+I:GOTO 980 
950 IF D$<> .... AND UP=0 THEN UP=INT 
(UPI/2) 
960 IF C$<> .... THEN LIP=O:UPI=O:GOSU 
B 1000:GOTO 980 
970 IF UP>O THEN Y=Y-I:UP=UP-I:IF U 
P=O THEN UPI=O 
980 PEN 3:LOCATE X,Y:PRINT CHR$(254 
);:PEN 1 
990 GOTO 770 
1000 U=U+I00 
1010 IF U>=I THEN I=I+20000:80RDER 
2:SOUND 1,200,5:L=L+I:LOCATE 19,22: 
PRINT L:LOCATE 19,22:PRINT CHR$(254 
) 
1020 LOCATE 16,8:PRINT USING "##### 
###";U 
1030 SOUND 1,20,2:SOUND 22002:SOU 
ND 3,400,2 
1040 BORDER O:RETURN 
1050 P=(X/2)-2:IF Z(P)=O THEN Z(P) = 
1:U=U+1000:PLE=PLE+1:GOSUB 1020 
1060 PAPER 2:LOCATE ×,25:PRINT MID$ 
(N$,P,1):PAPER 0 
1070 IF PLE=15 THEN GOSUB 1290 
1080 RETURN 
1090 FOR B=100 TO 500 STEP 10:SOUND 
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1,8,3:SOUND 2,B+IO@,3:NEXT B 
1188 L=L-I:IF L=-I THEN 1158 
1118 LOCATE X,Y:PRINT .... 
1128 LOCATE 19,22:PRINT L:LOCATE 19 
,22:PRINT CHR$(254) 
1138 PEN 1:LOCATE 39,24:PRINT CHR$( 
254) 
1148 GOTO 
1158 LOCATE 16,12:PRINT "GAME OVER" 116@ FOR B=@ TO 3@8 
117@ SOUND I,B,I,12:BORDER 8/12 
118@ NEXT B 
119@ CLEAR INPUT 
12@@ IF INKEY$= .... THEN 12@8 
121@ LOCATE 1,25:FOR A=I TO 26:PRIN 
T:NEXT 
122@ A=TIME:WHILE TIME <A+5@*5:WEND 
1238 IF U>RECORD THEN RECORD=U:LOCA 
TE 16,24:PRINT USING "########";REC 
ORD 
1248 GOTO II@ 
125@ DATA 142,142,142,142,159,179,1 
9@,213,213,179,142,1@6,1@6,1@6,1@6, 
119,134,134,142,159,159,142,134,142 
,134,142,119,134,142,142,159,179,17 
9,198,213,19@,19@,19@,198,179,19@ 
126@ DATA 
1278 PEN 2:LOCATE II,23:PRINT "0000 
":LOCATE 32,23:PRINT "0000":PEN I:R 
ETURN 
128@ PEN 2:LOCATE 4,23:PRINT "0000" 
:LOCATE 25,23:PRINT "0000" :PEN I:RE 
TURN 
129@ FOR N=I TO 5@@:INK RND*I,RND*2 
6:SOUND I,N,I,7:NEXT N:U=U+IO@88:GO 
SUB I@28:L=L+3:LOCATE 19,22:PRINT L 
:LOCATE 19,22:PRINT CHR$(254):FOR N 
=6 TO 34 STEP 2:LOCATE N,4:PRINT " 
":LOCATE N,25:PRINT CHR$(143):NEXT 
N:FOR N=I TO 15:Z(N)=@:NEXT N 
138@ Y=Y+I:PLE=@:INK @,@:INK 1,1:RE 
TURN 
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sinduda 
nlgunn 

A trav6s de esta secci6n se pre- 
tende resolver, en la medida de Io 
posible, todas las posibles dudas 
que (atormenlen) o todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
pginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundar6 en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a trav6s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

RECUPERACION 
DE FICHEROS 
BORRADOS 
Quisiera saber si por error borro 
un programa cono era, ¢¢PROGRA- 
MA BAS si existe la posibilidad de 
recuperarlo. He le(do que al borrar 
algo del disco, Oste s61o Io hace en 
el directorio, y que el programa s6- 
Io se el/mina cuando se graba algo 
encima. Si esto es as(, 2me pordr/ais 
indicar c6mo poderlo recuperar? 
Tambi6n me gustar(a saber si In- 
descomp tiene la intenci6n de tradu- 
cir al castellano los programas de uti- 
lidades (que no ser(a mala idea) y 
que se regalan con el CPC 128, ya 
Ue en e/ manual no existe mucha in- 
rmaci6n al respecto, 
Rafael 

1) En principio, no existe tal posi- 
bilidad. Si Io borras, Io borras. No 
obstante, como muy bien comentas, 
el ordenador Io que hate es borrar 
el nombre y los datos del fichero en 
cuesti6n del directorio solamente, es 
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decir, el fichero sigue existiendo fisi- 
camente en el disco. El problema es 
que, para el Amstrad, el espacio 
ocupado por el fichero difunto es uti- 
lizable, y puede que escriba encima 
sin la menor consideraci6n. 
Resumiendo, para recuperar un fi- 
chero del disco borrado necesitas un 
programa especial de utilidad que Io 
haga, tipo ODDJOB o algo asi, pe- 
ro si, en el interior, se ha escrito al- 
go encima del fichero a recuperar, 
no hay nada que hacer. 
2) No sabemos nada delos inten- 
ciones del Indescomp; Io mejor seria 
que les preguntaras a ellos, refiri6n- 
dote en concreto al programa que te 
interese. 

COMANDOS RSX 
Les escribo esta carta dirigida a su 
apartado Sin duda alguna. 
He le/do el arffculo del n. o 10 res- 
pecto al RSX y a pesar de que mis co- 
nocimientos de c6digo mdquina no 
son muy avanzados que digamos, Io 
he entendido bastante bien. 
La duda que tengo es c6mo se ha- 
r(a un comando en que el pardme- 
tro fuese una expresi6n. Por ejemplo 
en Basic tenemos SQR (expresi6n) 
para hallar la ra(z cuadrada de un 
nOmero o expresi6n, como x + 2 o 
COS(x) (d6ndole valores a x). C6- 
mo se harfa este comando en el RSX? 
Fernando Goyeneche 
En cualquier comando RSX, se 
puede dar como valor cualquier pa- 
r6metro, tal como x, x+2, etc. Po- 
demos, por Io tanto, introducir un co- 
mando de la siguiente forma: 
IRSX,X,Y 
as/pues, creemos quedar6 resuelta 
totalmente la duda. 

LOCOMOTIVE BASIC 
Y VARIABLES 
Aprovecho esta carta para felici- 
taros pot la excelente revista que es- 
tdis realizando y para ver si me po- 
d6is solucionar unos pequeos pro- 
blemas: 
C6mo almacenq el Basic Locomo- 
tive las variables. Con qu6 criterio 
Io hace (caracteres, coma flotante, 
BCD)? Realiza las operaciones arit- 
m6ticas mediante /ogaritmos. D6n- 
de estdn /as /lamadas ¢variab[es del 

sistema y d6nde se puede conse- 
guir un listado de elias con sus fun- 
ciones. Se puede, por software, 
conmutar los bloques de 16K. C6- 
too? 
C6mo se puede listar la ROM del 
controlador del/de los disco/s? 
D. 5. Barrientos 

Intentar6 responder a tus pregun- 
tas ordenadamente. 
1. ° El Locomotive Basic, almace- 
nalas variables alfanum6ricas como 
cadenas de caracteres, y las num6- 
ricas, en coma flotante. 
2. ° No realiza las operaciones 
aritm6ticas mediante Iogaritmos. 
3. ° Las Variables del sistema se 
encuentran a partir de la direcci6n 
hexadecimal #A900, aunque no exis- 
te ninguna informaci6n sobre elias. 
4. ° Se pueden conmutar los blo- 
ques de 16 K, y como habrs podi- 
do observar ya se ha publicado un 
programa que Io hace en los 01timos 
n0meros de nuestra revista. 
5. ° Dicha ROM se puede listar 
con la ayuda de un monitor- 
desensamblador. 

MEMOR Y FULL 

A continuaci6n les paso una con- 
sulta. Tengo un CPC  128, pero me 
encuentro que Iq mayoHa de progra- 
mas en cinta dah error de MEMORY 
FULL. No podr(an sacar y publicar 
un programa que anularse el disco, 
para poder introducir estos juegos . 
He introducido el programa LO- 
GO y me sale en pantalla ¢disco pro- 
tegido. He hablado con otros dos 
poseed res de 6128 y les oFurre Io 
mismo, he recurrido al programa 
HELP, pero 6ste estd escrito en in- 
glds, por Io que sigo como estaba, 
podrfais orientarme? 
Jos Manuel Conde 

Tu sugerencia de publicar un pro- 
grama que anule el disco para per- 
mitir cargar en el 6128 los juegos del 
464 est6 en proyecto, y muy pronto 
podremos publicar un completo pro- 
rama al respecto, a pesar de las di- 
cultades que entraa. 
De momento, existe un programa 
publicado en el n. ° 1 de la revista 
AMSTRAD USER)) que te servirc de 
gran ayuda. 
En cuanto a tus problemas con el 
LOGO, debes realizar una copia de 
seguridad del disco original antes de 
ejecutar el programa; de Io contra- 
rio no te funcionar6. 



iComo Io oyes! TQ pedes estar informado antes que nadie de todas las novedades 
que aparecen en el mercado, tener access a program,s exclusivos y a precios 
especiales, poder conseguir los trucos que te ayuden a salir de esa pantalla que se te 
resiste, regalos, pSsters, sorteos, p_egatiias...y uno.at6n m&s de ventajas. 
APUHTATE YFI L C  LUB 

No Io pienses m&s. Site apuntas ahora al Clul ERBE vas a recibir, adem&s, 
como regalo._de_inscripciSn. ...-.  
I l .  '",'d, , 'e 
 El jueo que mas te guste de nuestro catalogo ,1 e; ,  ,.:. 
. Una fabulos, camiset- ,o el anagrama del Club. 
 Tu carnet ersonal 6e soc,o, ue te 6ara 6erecho al0% 6e 6escuento  
to6os los ]ueos de B que comres, 6uranto un ao, en cualquera 
6 os establecmetos quo aqu al la6o se relacionan (o  traves 6el Club si n tu 
zona no exstera ninuno),l I o 
 .,' t. . • . . 
@, J7 ',:" .. 
 ' CAMISA MON. 
TODO POR SOLO 3.000 PTS'... UN AU NTICO CHOLLO 

El!ge ya tu juego, corre al telefono y II&mano- al (91), 47 34 10 o escribenos a•ERBE SOTWARE 
C/. Santa Engracia, 17. 28010 Madrid para hacerte socio no pedir m&s informaciSn. 

* QUEDAN EXCLUIDOS LOS PROGRAMAS EN DISQUETE 



DISTRIBUIDORES AFILIADOS 

ALAVA 
DATAVI. Avda, Oas{eiz, 29, VITOR[A 
LMERIA 
INFORMATICA-ELECTRONICA hapdes, 2"2. 
LICANTE 
INFORTRONICA. Dod J rnenez Dz 2 ELCHE 
M[RO CENTRO, Csar Ezquezl, 45. AUCANTE. 
MULTISYSTEM. Son V=cente, 53./.ICANTE. 
CODE-2000. Rarnbn y Calal. 3. DEN 
SILICON VALLEY. Gloneta 4 se;.ar, o. E "HE 
ASTURIAS 
CASA-RADIO MIERES. Jerbn'mO Ibran, 11. MIERES. 
SOVI ELECTRONICA Cbrales, 31 GIJOfl, 
BERNE. Men(ndez Valds, 13 GIJfl 
RADIO-NORTE. Uria, 20. OV;EDO. 
IMAGEN. Pablo Igtesias, 83. GlJOfl. 
COMERCIAL ARANGO. Mucos de Termello, 2 AVILES. 
CUAORAOO INFORMATICA Tore'o, 5, OVEDO. 
AVILA 
01SCO-70. Plaa Sty. Teresa, 1. 
BADAJOZ 
SONIDO RUBIO, A,,,I Fdez. CaLzadlla 10, BADAJO7 
RADIO GRAJER. Sa.,1 Jos, 1 . ALMENDRALEJO. 
BALEARE$ 
ERGON. Faang=sla Lagol a. 2 P. MALLORCA 
PROCONT. Exlremadura. 31. 
COMPUSHOP, Va Alem=ma  1. P, MALLORCA 
TEKNOS. Nagon, . P, ,ALLORCA 
CADIZ 
PARODI-DISCO$. No,,ea. 

CASTELLON 
CASK), S. A. San V cente, 6. Avda Rey Don Jairne, 74, 
APARATOS. Mayor, 32. VINAROZ. 
LACORUA 
PHOTOCOPY. Juana de Vega 29-31, 
GERONA :,.... 
CEBTRAL FOTO. Ctra, de San Feho, 28. FLATJA O'ARO, 
GRNADA 
INFORMATICA-ELECTRONICA Melcbor Almag;o, 8. 
GUADALAJARA 
ABI. Padre Fl=x FIches, 3. 
G[IP= "CA 
SABA. Fuenlerrabla, 14. SAN SEBASTIAN, 
AMASONIK. Psao C,:)n, 80-82. IRUN 
HUELVA 
RADILUX. Concepd'), 6. 
LEON 
MICRO BIERZO. Cos I, 2. FONFERRADA 
LOGROIO 
COMPUTER PAPEL, L-aslro','iejo, 19. 
LUGO 
MEO INFORMATICA Aa Ram6n Ferrelro, s/n. 
MADRID 
HIESA INFORMATICA. Cam'no Vlnateros, 40. 
INSTRUMENTOS MUSICALES ANGEL. Ptaza Espa 2 (Ioca/9). LEGANES. 
COMPUTIQUE. Embajadores, 90. 

MALAGA 
TOOOINFORMATICA Avda. Aurora 14 
INFORMATICA EUROPA Moreno Carboero (Edf. Cbonero) FUENGIROLA. 
ORGANIZACION EMPRESAS, R c,rdo Soriano, 35. MAqBELLA 
TELEVISION PIAS. D, Eusebo RaJrez, 2. SAN PEDRO ALCANTARA 
MURCIA 
MEMORY SHOP, Lepanto, | 
NAVARRA 
MICROORDENADORES RAMAR. Navarro V Icada 7. 
PAMPLONA 
ORENSE 
ALMACENES MENOEZ. Cap'tn Corr., 7. 
PALENCIA 
LA ESFERA. Mayor. 87. 
SANTANDER 
RADIO MARTINEZ. Doctor J=rnnez Daz i3, 
TOLEDO 
CALCO. Angel de Alcazar, 56, TALAVERA DE LA REINA 
VALENCIA ;"= ' 
RADIO COLON. Co11 7. 
ELECTRONICA MORANT, Jame Tres, 12 GANDIA 
V. ,LLA[; =LID 
CHIPS AND TIPS. Plaza Teefia, t 1. 
MICROLIO. Gregorto Ferndez, 6. 
VIZCAYA 
REMBAT. Genera Corha, |2 BILBAO. 
EPROM 2, Juan XXl I, 3. SANTURCE, 
ADA COMPUTER.Indepennc a 24-26. 

ercado 
comdn 

Con el obieto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus pcigi- 
nas para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envianos tu anuncio mecanografiado 
a." HOBBY PRESS, 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
IABSTI:NERSE PIRATAS! 

Club de usuarios Amstrad en 
Valencia. Ya tenemos un nuevo 
club de amigos del Amstrad en 
Valencia. Ponte en contacto con 
nosotros mediante el tel6fono: 
375 77 02 (preguntar por Vicente) 
y 375 41 43 (preguntar por Jos 
Luis) o mandando una carta con 
tus seas y tel6fono a: Vicente 
Bres6 Flores. Julio Colomer 5--1. 
Alfafar (Valencia). 

Vendo cables para ampliaci6n de 
monitor, alimentaci6n y antena 
seggn medidas pedidas, para ms 
informaci6n escribir a: Manuel 
Antonio Ramos Romero. C! 
Rodriguez Marn, 42. San Juan de 
Aznalfarache (Seville). 

O • • • • O O e O O O O O O e 

Desearia confactar con usuarios 
de Amstrad 464, para cambiar 
algunos juegos. Llamen al tel. 
72 47 21. C/Villalar, 3, Dos 
Hermanas (Sevilla). 

Microhobby Amstrad Semanal. 
Comprado en febrero de 1986. 
Buen precio. Interesados Ilamar al 
tel6fono: (93) 201 24 07. 
Preguntar por Javier. En horas de 
comida o cena. 

Vendo Amstrad 6128 con 
monitor en color y muchos extras. 
Todo comprado en marzo. Precio 
a convenir. Tel. 250 18 95. 

Vendo Amstrad 664 con monitor 
en color. Precio 90.000 pesetas. 
Preguntar pot Fernando en el tel. 
(945) 25 52 68. CWPintor Pablo 
Uranga, 20-1.° Vitoria. 

Compro Amstrad CPC 664 6 
CPC 6128 con monitor en f6sforo 
verde, que estn en buen estado. 
Pod6is Ilamar al (93) 372 58 68 
de Barcelona, preguntando por 
Francesc, a partir de las 21 horas. 

,34 tcoor AMSTRAD 



AMSTRAD 
SPECTRUM 

MOLECULE MAN 
Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. Tambin incluido 
en esta cinta un 0nico y fcil 
de utilizar, sistema de constru- 
ccibn de laberintos, que te 
permitir corregir el existente 
o crear otros nuevos. 
AMSTRAD 
COMMODORE 

KANE 

En el Oeste no caben las pala- 
bras, sino la Accibn, la Rapi- 
dez ¥ ta Punter.a. 

MSX 
AMSTRAD 
SPECTRUM 

KNIGHTTYME 

La tercera de la serie de aven- 
turas Magic Knight, se encon- 
trb a sl mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animacibn, que fue utilizado 
por primera vez en Spellbound. 
Serz ste el fin de Magic 
Knight?. 
SERIE M.A.D.: P.V.P. 1.100 PTAS. 

AMSTRAD 

ILr' 3.W=_ , ,I  

RADZONE 

El equipo de colonizacibn casi 
habia terminado su tarea 
cuando un reactor nuclear 
alcanzb un estado crltico y la 
base tuvo que ser abandonada. 
TO estas abajo todavla para 
volver a hacer el planetoide 
seguro. 

AMSTRAD 
COMMODORE 

TH E LAST Vo8 

En cualquier otro coche no 
tendrlas ninguna oportunidad; 
en el ltimo V-8 la superviven- 
cia es posible (a Io mejor ...) 
Sintetizador de voz, perfecto 
Scroll de 360% tema musical 
atres voces, grfic_os futuris- 
tas excelentes. 

INTO OBLIVION 
Despu6s de la destruccibn del 
vii ordenador que gobern6 una 
vez en la Galaxia, debes buscar 
el nico planeta seguro para 
evitar a los s&dicos andrbides 
que han sido programados 
para volatizarte. 
Con 2.500 pantallas, tu tar= no 
es nada fScil. 
exclusiva pa ESPA/A DRO SOFT 
Fundadores, 3-28028-MADRID 
Tels. 255 45 00/09 
" ,.. 
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NUestrds '; .l:lu |.. se 
encuentran en las reel0 
res hendas de informatl 
ca Si tienen problema 
en obtenerlos, cotttd 
tenos darectamente 

| 
DISTRIB'UIDO- . : 
VALENCIA (MALIOT, S. L. TEL.: (96) 367 94 61 
ZARAGOZA (BAZAR CANARIAS TEL.: (976) 23 74 90) 
BARCELONA (SUMINISTROS VALLPARADIS, TEL.: (93) 381 65 70) 
En '0, D-.artamentos "--" "--'de GALFRIAS 

I portador en exclusiva de los productos 

COMERCIAL "NA e, S. A. 
Serrano, 30 3,  
Telefono (9t) 435 6 64 (4 lines) 
Telex 47340 NAO E 
28001 MADRID 



